如何在VBA中结束do while循环

Question

我想知道我的编码有什么问题,因为我无法在Microsoft Excel VBA中结束我的循环.如果下一行为空,我希望结束这个while while循环.

Do While Cells(RowName, 1) <> ""
    Name = Cells(RowName, ColumnName)
    MsgBox Name
    RowName = RowName + 1
Loop

因为我还是初学者,请赐教.MsgBox一直弹出,即使它是空白也不会结束.

Answer 1

“Exit Do” - 您可以在任何想要停止循环的地方使用此命令。

Sub ExitDoSample
    Dim rowname As Integer
    Dim ColumnName  As Integer
    rowname = 1
    ColumnName = 1


    Do While Cells(RowName, 1) <> ""

        Name = Cells(rowname, ColumnName).Value
        If Name = "" Or IsEmpty(Name) Then
            Exit Do
        Else
            MsgBox Name
        End If
        rowname = rowname + 1
    Loop
End Sub