将范围内容粘贴到1个单元格中-Excel VBA

Question

我试图复制从单元格A2开始的范围的内容，然后将内容粘贴到单元格E7中。

当我的范围大约为100行时，这里写出的代码对我有用，但是当我尝试更大范围（200行）时，它仅粘贴了大约70％的内容。

有没有办法解决这个问题，使其每次都能正常工作？

Sub Copy_Paste()
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Dim rng As Range
Dim i As String
For Each rng In Selection
i = i & rng & " "
Next rng
Range("E7").Value = Trim(i)

Answer 1

将这两个建议放在一起

Sub Copy_Paste()

Dim rng As Range
Dim i As String
For Each rng In range(Range("A2"),Range("A" & activesheet.rows.count).end(xlup))
    i = i & rng.text & " "
Next rng
if len(i)>32387 then msgbox "Too Long" 'test if too long
Range("E7").Value = Trim(i)
End Sub