在EXCEL表格中把不同行的数据合并成在一列

2025-05-01 22:23:50
推荐回答(1个)
回答1:

假设你需要合并的数据在A列。
那么可用如下代码:
Sub my()
Cells(1, 2) = Cells(1, 1)
Dim i As Long
For i = 2 To [A65536].End(xlUp).Row
Cells(1, 2) = Cells(1, 2) & "," & Cells(i, 1)
Next
End Sub