将多个单元格中的文本合并到一个单元格中

【问题标题】：Merging text from multiple cells into one cell将多个单元格中的文本合并到一个单元格中
【发布时间】：2014-12-31 05:20:28
【问题描述】：

我是 VBA 新手，我正在尝试解决工作中的一个小问题。如何将字符串从一些单元格复制到一个合并单元格中？

假设我有五个带有字符串的单元格：

One
Two
Three
Four
Five

我需要使用它们并用这些词创建一个单元格一个在另一个之下

【问题讨论】：

1将单元格的内容存储在变量中2合并单元格3cell.value = variable

标签： vba excel merge

【解决方案1】：

像这样：

Sub test()
Dim mergedStr As String
Dim afterFirst As Boolean
For Each cell In Range("A1:A5")
    If afterFirst Then mergedStr = mergedStr & Chr(10)
    mergedStr = mergedStr & cell.Value
    afterFirst = True
Next cell
Range("d3").Value = mergedStr
End Sub

【讨论】：

它不会写入最后一个字符串并以空格开头。
最后一个字符串实际上是存在的，它只是进一步向下，如果您的合并单元格是所需的确切行数，这是一个问题。我现在已经编辑了，对此感到抱歉。