将A组数据移到B1里面,而且以逗号分隔 |
将A组数据移到B1里面,而且以逗号分隔 |
给你写了段代码如下:
Sub Lin() Dim EndRow%, arr Dim Str1 As String, Str2 As String EndRow = Range("A65536").End(xlUp).Row arr = Range("A1:" & "A" & EndRow) For i = 1 To EndRow Str1 = arr(i, 1) Str2 = Str2 & arr(i, 1) & "," Next [B1] = Mid(Str2, 1, Len(Str2) - 1) End Sub 使用方法:按下快捷键Alt+F11打开VBE编辑器。依次单击VBE编辑器菜单栏上的“插入”--“模块”按钮,将代码Copy到代码框中。如图
比如 78 95 98 中加入逗号,变成如下数据: 78, 95, 98, 因为数字很多 所以不能一个一个打 解决办法: 假设你的A列是这些数据,第一个数据在A1,你在B1输入 =A1&"," 之后下拉,你就会看到所有的数据已经在B列添加上了逗号,然后复制B列--选择性粘贴--数值,粘在你原来的A列,然后删除B列就行了。 又比如要合并两列数据,而且数据之间用逗号隔开。比如:A1为12,B1为34,要合并到C1中,而且合并的结果为“12,34 ”,那么你可以在A3中输入=A1&","&B1 确定以后就可以看到结果了。如果下面的所有数据都要合并,那就直接下拉C1就可以了。如果你合并以后需要删除A和B列,那么请复制C列数据到D列,粘贴后选择“只有值”,这样就可以删除A、B、C三列,保留合并的值了
朋友请试试..
不明白你的提问,请清楚一点吧兄弟