vba - 如何让循环在 VBA 中工作？

Question

我已经开始学习 VBA 中的循环，但由于某种原因，我无法让这段代码工作。

Sub test()

Dim Sheet1 As Worksheet
Dim fr As Long
Dim c As Long

Set Sheet1 = Worksheets("Sheet1")

fr = Cells(Rows.Count, "A").End(xlUp).Row

    With Sheet1

        For c = fr To step - 1
            If .Cells(c, "A").Value = "" Then
                .Cells(c, "A").EntireRow.Clear
            End If
            Next c
    End With

End Sub

我要做的就是如果在 A 列中，如果没有清除整行的值。然而，这段代码对我不起作用，我不知道为什么。

任何帮助将不胜感激。

谢谢，

G

Answer 1

首先输入 Option Explicit在模块的顶部。这会强制您声明所有变量，并会导致指出您的问题的编译错误。在这一行...

For c = fr To step - 1

...您错过了循环的终点。你的意思可能是...

For c = fr To 1 Step - 1

注意关键字 Step在您的代码中是小写的。这是因为 VBA 解析器正在寻找表达式 For X = Y To Z [Step #] , 其中 [Step #]是可选的。由于 Z缺失且需要，它解析了 step - 1作为表达式，从 中减去 1未声明的变量 step .由于数值变量被初始化为 0 ，您超出了工作表的开头。