將范圍內容粘貼到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