VBA在字符串中使用循环存储值

Question

如何将A1到A5的值存储到字符串“Content”中不仅是A5值？

i = 2 
Do 
Content = "Range("A" & i).Value" 
i = i + 1 
Loop Until i > 5 

Answer 1

然后哟需要自己来连接它：

i = 2 
Do 
    Content = Content & Range("A" & i).Value 
    i = i + 1 
Loop Until i > 5 

Answer 2

或者你可以试试这个：

Dim r As Range, Content As String 
Set r = Range("A1:A5") 
With Application 
    Content = VBA.Join(.Transpose(r), "") 
    Debug.Print Content 
End With 

无需循环。这是如果你只需要连接它。