ループストア値を文字列に使用するVBA

Question

A5の値だけでなく、 "コンテンツ"という文字列にA1からA5の値を格納する方法

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

Answer 1

はその後ヨーヨーは自分自身でそれを連結する必要はありません

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

不要ルーピングを。つまり、連結する必要がある場合のみです。

Answer 2

それともあなたはこれを試すことができます：

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