[已解决]自定义函数合并多个单元格内容Join

张雄友

自定义函数合并多个单元格内容Join。

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-11 19:47

张雄友 发表于 2015-5-11 19:42
还是多了很多逗号出来。

1. Function demo(rng As Range)
   
2.     Dim j As Integer, n As Integer
   
3.     If rng.Rows.Count = 1 Then
   
4.         ar = rng.Value
   
5.         For j = 1 To UBound(ar, 2)
   
6.             If ar(1, j) = "" Then n = n + 1
   
7.             If ar(1, j) <> "" Then demo = demo & ar(1, j) & ","
   
8.         Next
   
9.         If n = UBound(ar, 2) Then
   
10.             demo = ""
    
11.         Else
    
12.             demo = Left(demo, Len(demo) - 1)
    
13.         End If
    
14.     End If
    
15. End Function
    

复制代码

没注意，以为空着的要留着{:011:}

跳转到最佳答案楼层

qh8600

1. Function demo(rng As Range)
   
2. Dim j As Integer, n As Integer
   
3.     If rng.Rows.Count = 1 Then
   
4.         ar = rng.Value
   
5.         For j = 1 To UBound(ar, 2)
   
6.             If ar(1, j) = "" Then n = n + 1
   
7.             demo = demo & ar(1, j) & ","
   
8.         Next
   
9.         If n = UBound(ar, 2) Then
   
10.             demo = ""
    
11.         Else
    
12.             demo = Left(demo, Len(demo) - 1)
    
13.         End If
    
14.     End If
    
15. End Function

复制代码

自定义函数合并多个单元格内容Join.rar (9.63 KB, 下载次数: 7)

2015-5-11 19:33 上传

点击文件名下载附件
这样试试

张雄友

laoau132 发表于 2015-5-11 19:35
悲剧了，一楼楼主，问了三年，基础都学不到，。。。。。。答你都是傻瓜

。。。。。。。

张雄友

qh8600 发表于 2015-5-11 19:34
这样试试

还是多了很多逗号出来。

qh8600

张雄友 发表于 2015-5-11 19:42
还是多了很多逗号出来。

1. Function demo(rng As Range)
   
2.     Dim j As Integer, n As Integer
   
3.     If rng.Rows.Count = 1 Then
   
4.         ar = rng.Value
   
5.         For j = 1 To UBound(ar, 2)
   
6.             If ar(1, j) = "" Then n = n + 1
   
7.             If ar(1, j) <> "" Then demo = demo & ar(1, j) & ","
   
8.         Next
   
9.         If n = UBound(ar, 2) Then
   
10.             demo = ""
    
11.         Else
    
12.             demo = Left(demo, Len(demo) - 1)
    
13.         End If
    
14.     End If
    
15. End Function
    

复制代码

没注意，以为空着的要留着{:011:}

张雄友

qh8600 发表于 2015-5-11 19:47
没注意，以为空着的要留着

能不能像IFERROR 这样容错？如附件。

laoau133

悲剧了张雄友楼主，问了三年基础都学不到..............................只会依赖别人，永远长不大，永远学不会VBA

初入精英论坛天天见张雄友。起初以为他是VBA高手。后来发现他原来是个发问高手时间持续三年.自学三个月VBA都秒了你


三年足以学会：VBA+VB+VB.NET,..............................相信精英论坛没有人同时精通这三个

还是那句话..........................................精英论坛没有一个是高手