即使是真的,其他情况下也会运行(If/Else)

Question

我目前正在使用VBAexcel,我真的需要一些帮助.

如下所示,我基本上试图检查所有单元格的特定值(2090)并输出"1"如果在该行中找到2090,否则为"0".此输出将在第25列,与数字位于同一行.

我做了一些测试,我知道我的代码确实输出"1",当遇到2090并输出到正确的位置等.但是,在输出"1"后,它将立即再次与"0"重叠.因此,我相信即使If语句为true,else情况也在运行.在执行结束时,我的整个专栏只产生了一堆"1"而没有别的.

我很感激对此有任何帮助!谢谢.

Sub New()
Dim i As Integer, j As Integer, Needed As Integer
Needed = 2090
For i = 1 To 10
For j = 1 To 20
    If Cells(i, j).Value = Needed Then
       Cells(i, 25).Value = "1"
    Else
       Cells(i, 25).Value = "0"

    End If
Next j
Next i
End Sub

Answer 1

如果Cells(2, 10)匹配你的条件,Cells(2, 25)将被设置为1,但是它会立即进行测试,如果Cells(2, 11)匹配你的条件,如果没有,Cells(2, 25)将被覆盖0.

最终结果将始终取决于第20栏中的内容.

如果条件评估为真,则需要打破内循环.