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

【问题标题】：Excel loop copy paste until blank cell in columnExcel循环复制粘贴，直到列中的空白单元格
【发布时间】：2017-03-18 14:15:16
【问题描述】：

我正在尝试从单元格 B5 开始复制列 B 中的数据并粘贴到单元格 E2 中。循环这个直到B列中的空白单元格每次都覆盖E2。有什么建议么？

【问题讨论】：

标签： vba excel

【解决方案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

注意：

您可以通过使用循环定位空白上方的单元格并只复制/粘贴一次来提高速度性能。

【讨论】：

【解决方案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

【讨论】：