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

chxw68

jjmysjg 发表于 2018-6-5 22:23
chxw68老师：
行向的单元格达到上述效果，如何修改代码。
谢谢

不用修改代码！

jjmysjg

chxw68 发表于 2018-6-5 22:25
不用修改代码！

r = .Cells(.Rows.Count, 1).End(xlUp).Row  是A列向下范围，怎么变为A2：k2的范围？

chxw68

jjmysjg 发表于 2018-6-5 22:30
r = .Cells(.Rows.Count, 1).End(xlUp).Row  是A列向下范围，怎么变为A2：k2的范围？

我改成自定义函数了，你看看。

yeatol

谢谢各位，先又有一个新要求，请问怎样修改自定义函数？

chxw68

yeatol 发表于 2018-6-5 23:37
谢谢各位，先又有一个新要求，请问怎样修改自定义函数？

这些都是基础性的问题，楼主用心把基础知识自学两天，这些问题都能够自己解决的。

jjmysjg

不知道为什么 发表于 2018-6-5 19:40
很简单啊，用循环 连接符 就可以啊。自己试试

如果数据是在一行中，比如A3：K3，达到上述效果，怎么修改代码？
谢谢

jjmysjg

chxw68 发表于 2018-6-5 19:38

褚老师你好：
2楼的代码，怎么改成一行的数据合并
比如A3：K3

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
6.     arr = .Range("a1").Resize(1, c)
   
7.     ss = ""
   
8.     For j = 1 To UBound(arr, 2)
   
9.       If Len(arr(1, j)) <> 0 Then
   
10.         ss = ss & "、" & arr(1, j)
    
11.       End If
    
12.     Next
    
13.     If Len(ss) <> 0 Then
    
14.       .Range("a2") = Mid(ss, 2)
    
15.     End If
    
16.   End With
    
17. End Sub
    
18. 
    

复制代码

chxw68

触类旁通。