用VBA合并细胞内容

Question

我正在尝试将某些单元格的内容合并为一个，但是单元格中的每条信息都在一行中。有谁知道如何用VBA做到这一点？我附上一张图片来帮助解释它。

Answer 1

这段代码应该可以解决问题：

Sub MergeContents()
    Dim i As Integer

    For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Step 1
        ActiveSheet.Cells(i, 9).Value = _
            ActiveSheet.Cells(1, 1).Value & ": " & ActiveSheet.Cells(i, 1).Value & Chr(10) & _
            ActiveSheet.Cells(1, 2).Value & ": " & ActiveSheet.Cells(i, 2).Value & Chr(10) & _
            ActiveSheet.Cells(1, 3).Value & ": " & ActiveSheet.Cells(i, 3).Value & Chr(10) & _
            ActiveSheet.Cells(1, 4).Value & ": " & ActiveSheet.Cells(i, 4).Value
    Next i

End Sub