vba 很多单元格拼接在一起

要拼接多个单元格的内容，可以使用VBA的字符串拼接函数 "&"，并结合For Each循环遍历多个单元格。以下是一个VBA示例代码：

Sub ConcatenateCells()
    Dim cell As Range
    Dim result As String
    For Each cell In Range("A1:A5") '这里假设要拼接的单元格是A1到A5
        result = result & cell.Value & " " '每个单元格的内容后面加上一个空格
    Next cell
    Range("B1").Value = result '结果放在B1单元格中
End Sub

上述代码将A1到A5单元格中的内容拼接在一起，并将结果放在B1单元格中。如果要拼接其他单元格，只需修改代码中的单元格范围即可。需要注意的是，每个单元格的内容之间要用一个空格隔开，可以在字符串拼接时添加一个空格。