Excel VBA：单循环+如果语句；运行时错误 1004

Question

我想遍历一列并将该范围内的所有单元格与单元格“AD2”的值 x 进行比较。如果单元格 i 的值小于值 x，我希望单元格 i 标记为红色。运行以下代码时：

Sub Button10()
    Dim i As Long
    Dim x As Integer
    x = Range("AD2").Value
    If Cells(i, 26).Value < x Then
        Cells(i, 26).Font.Color = vbRed
        For i = 1 To 500
        Next i
    End If
End Sub

我收到以下错误：

运行时错误“1004”：对象“范围”的方法“_Default”失败。

Answer 1

现在我已经indented your code，希望你能看到你的逻辑在你的For 循环之外，而它应该在它里面。

您会收到一个错误，因为当您声明 i As Long 时，它会使用 0 的值进行初始化。因此，此行将失败，因为 i = 0 没有返回有效范围：

If Cells(i, 26).Value < x Then

所以试试这个：

Sub Button10()
    Dim i As Long
    Dim x As Integer
    x = Range("AD2").Value
    For i = 1 To 500
        If Cells(i, 26).Value < x Then
            Cells(i, 26).Font.Color = vbRed
        End If
    Next i
End Sub