VBA 循环遍历空列

Question

我陷入了如何完成具有特定结果的循环的困境。

我附上了我基本上想要发生的事情的屏幕截图。

VBA将从B1开始，我希望VBA向右循环空列，直到到达任何字符/字符串(结果可以出现在B1右侧的任何单元格中，并且是一个变量字。 )一旦它找到一个包含任何字符的单元格，我想复制它并将其移动到 B5。我有以下代码，除了不断循环之外，它几乎满足了我的要求。

代码:

Sub looptillnotempty()
    Dim notempty As Boolean
    notempty = False
    Do Until notempty
        If IsEmpty(ActiveCell) = True Then
            ActiveCell.Offset(0, 1).Select
        Else
            ActiveCell.Copy
            Range("C5").PasteSpecial Paste:=xlPasteFormulas
        End If
    Loop
    Range("C8").Select
End Sub

我想要实现的目标::

Answer 1

您可以使用 Exit Do 退出循环，如下所示:

Sub looptillnotempty()
    Dim notempty As Boolean
    notempty = False
    Do Until notempty
        If IsEmpty(ActiveCell) = True Then
            ActiveCell.Offset(0, 1).Select
        Else
            ActiveCell.Copy
            Range("B5").PasteSpecial Paste:=xlPasteFormulas
            Exit Do
        End If
    Loop
    Range("C8").Select
End Sub