用 VBA 合并单元格的内容答案

【问题标题】：Merging content of cells with VBA用 VBA 合并单元格的内容
【发布时间】：2013-10-31 21:14:43
【问题描述】：

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

【问题讨论】：

出于好奇：为什么？
我将把它们插入到一个地理程序 StatPlanet Plus 的宏中。信息将在附加时显示。我尝试了其他方法，但它看起来太乱了......

【解决方案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

【讨论】：

哇是的，我真的很感激！您让我免于浪费大量时间尝试格式化我的数据库！ ;)