Vba Excel循环复制粘贴到列中的空白单元格

我试图从单元格B5开始复制B列中的数据，并粘贴到单元格E2中。循环此操作，直到B列中的空白单元格每次都覆盖E2。有什么建议吗

考虑：

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

注意：

可以通过使用循环到<强> >定位/强>空白上方的单元格，只做一次复制/粘贴。

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

注意：

可以通过使用循环到<强> >定位/强>空白上方的单元格，只做一次复制/粘贴。

可以使用：

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

Sub-main（）
调光范围
设置r=范围（“B5”）
当r.值“”时执行此操作
范围（“E2”）.值=r.值
设置r=r.偏移量（1）
环
端接头

您可以使用：

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

Sub-main（）
调光范围
设置r=范围（“B5”）
当r.值“”时执行此操作
范围（“E2”）.值=r.值
设置r=r.偏移量（1）
环
端接头