此代码有什么问题？ VBA

Question

无论条件是否为真，单元格的值始终为“错误”。 我尝试过使用else，但是也不起作用。

Sub ejer_4()
    Cells(3, 1).Value = "hola"
    For i = 2 To 21:
        If Int(Cells(i, 3).Value) <> Int(Cells(i + 1, 3).Value) - 1 Then
            Cells(3, 1).Value = "Error"
        End If
    Next
End Sub

Answer 1

我认为应该可以解决您的问题：

Sub ejer_4()
    For i = 2 To 21:
        If Int(Cells(i, 3).Value) <> Int(Cells(i + 1, 3).Value) - 1 Then
            Cells(i, 1).Value = "Error"
        Else
            Cells(i, 1).Value = "hola"
        End If
    Next
End Sub

您的问题是您循环了许多单元格，但是在检查条件之后将其写入一个单元格。 因此，此单元格将仅包含上一次检查的结果。 以前的值将被简单地覆盖。