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