我正在尝试将一些单元格的内容合并为一个,但每条信息都在单元格内的一行中。有谁知道如何用VBA做到这一点?我附上一张图片来帮助解释它。
问问题
163 次
1 回答
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
于 2013-10-31T21:28:47.710 回答