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

Question

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

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

One
Two
Three
Four
Five

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

Answer 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