用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