[已解决]多列编码数据合并求助

ddmyykdzh

请问有什么简便办法将商品编码列全部汇总在一起，并且每个编码都用英文逗号“,”隔开？
比如：65931,65800,10404,65079……
见附件！请高手帮忙解答，谢谢！{:3712:}
Book1.zip (15.28 KB, 下载次数: 17)

2012-1-9 16:16 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

tony3

2012-1-9 17:21

我的是技巧啊，只要会复制粘贴就可以。菜鸟一看就明白。

跳转到最佳答案楼层

sunjing-zxl

1. Sub aa()
   
2.     Dim arr, str1 As String
   
3.     arr = Range("A2:A" & [A65536].End(xlUp).Row)
   
4.     str1 = arr(1, 1)
   
5.     For i = 2 To UBound(arr)
   
6.         str1 = str1 & "," & arr(i, 1)
   
7.     Next i
   
8.     [B2] = str1
   
9. End Sub

复制代码

附件： Book1-sunjing.rar (16.72 KB, 下载次数: 3)

2012-1-9 17:21 上传

点击文件名下载附件

tony3

我的是技巧啊，只要会复制粘贴就可以。菜鸟一看就明白。

菜鸟锐

太牛X了~~~厉害1！！

windimi007

sunjing-zxl 发表于 2012-1-9 17:20
附件：

复杂了点！{:3912:}

1. Sub aa()
   
2.     Dim arr
   
3.     arr = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   
4.     Range("B1") = Join(WorksheetFunction.Transpose(arr), ",")
   
5. End Sub

复制代码