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

注意：

通過使用循環將單元格定位在空白上方並僅執行一次復制/粘貼，可以提高速度性能。

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