VBA单元格内容合并

来源：百度知道 编辑：UC知道 时间：2024/05/16 00:39:28
在EXCEL内有如下一行数值：
U00932201G
U00932202G
U00934005H
U00932111G
如何能过合并使得单元格内容变为U00932201G，U00932202G，U00934005H，U00932111G，
因为要编辑的内容比较多，所以希望能通过VBA来实现。

很简单，看如下例子，例子中把你的内容合并到b1单元格中，假设你有100行数据，将例子中的1000改为100即可。

Sub 例子()
Dim a, aa, b(1000), c
For a = 1 To 1000
b(a) = Cells(a, 1)
Next a
For aa = 1 To 1000
If c = "" Then
c = b(aa)
Else
c = c & "," & b(aa)
End If
Next aa
Cells(1, 2) = c '合并到b1单元格中
End Sub