0

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

在此处输入图像描述

4

1 回答 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 回答