列の空白セルまでExcelのループコピーを貼り付けます

Question

セルB5から列BのデータをコピーしてセルE2に貼り付けようとしています。列Bの空白のセルが毎回E2を上書きするまでこれを繰り返します。助言がありますか？

Answer 1

は考えてみましょう：

Sub dural() 
    Dim r As Range, rB As Range 

    Set rB = Range("B5:B" & Rows.Count) 

    For Each r In rB 
     If r.Value = "" Then Exit Sub 
     r.Copy Range("E2") 
    Next r 
End Sub 

注：

あなたは/空白の上のセルを見つけにループを使用して速度性能を改善し、コピーをしていることができます貼り付けは1回だけです。

Answer 2

あなたが使用できます。

Sub main() 
    Dim r As Range 

    Set r = Range("B5") 
    Do While r.Value <> "" 
     Range("E2").Value = r.Value 
     Set r = r.Offset(1) 
    Loop 
End Sub