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

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

假设我有五个单元格，其中有字符串：

One
Two
Three
Four
Five

我需要用这些单词创建一个单元格，一个放在另一个下面，如下所示：

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

---

1将单元格内容存储在一个变量中2合并单元格3单元格。value=variable它不会写入最后一个字符串并以空白开头。最后一个字符串实际上在那里，如果合并单元格的行数正好是所需的行数，则会出现问题。我已经编辑过了，很抱歉。