求解决：多个单元格内容合并同时用符合隔开

yeatol

不懂VBA，求各位帮忙一下！谢谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a3:a" & r)
   
7.     ss = ""
   
8.     For i = 1 To UBound(arr)
   
9.       If Len(arr(i, 1)) <> 0 Then
   
10.         ss = ss & "、" & arr(i, 1)
    
11.       End If
    
12.     Next
    
13.     If Len(ss) <> 0 Then
    
14.       .Range("c2") = Mid(ss, 2)
    
15.     End If
    
16.   End With
    
17. End Sub
    

复制代码

chxw68

很简单的问题。

不知道为什么

很简单啊，用循环 连接符 就可以啊。自己试试

yeatol

chxw68 发表于 2018-6-5 19:39
很简单的问题。

谢谢！能否搞个自定义函数？比如类似textjoin的，这样可以改变单元格范围。

yeatol

自己顶一下！

chxw68

1. Function textjoin(ByVal target As Range)
   
2.   Dim ss As String
   
3.   Dim rng As Range
   
4.   ss = ""
   
5.   With Worksheets("sheet1")
   
6.     For Each rng In target
   
7.       If Len(rng.Value) <> 0 Then
   
8.         ss = ss & "、" & rng.Value
   
9.       End If
   
10.     Next
    
11.     If ss <> "" Then
    
12.       textjoin = Mid(ss, 2)
    
13.     Else
    
14.       textjoin = ""
    
15.     End If
    
16.   End With
    
17. End Function
    

复制代码

chxw68

修改好了。这个问题楼主模仿坛里的例子自己就能完成。

jjmysjg

chxw68 发表于 2018-6-5 19:39
很简单的问题。

chxw68老师：
行向的单元格达到上述效果，如何修改代码。
谢谢
                        要求结果：
  张三  李四  张三  　  赵六  孙七  　  前八  吴九  　  　  张三、李四、王五、赵六、孙七、前八、吴九
                        

jjmysjg

附件无法上传了