否则情况下运行，即使如此（如果/否则）

我目前正在与Excel的VBA工作，我真的需要一些帮助。

如下所示，我基本上试图检查所有单元格为特定值（2090）＆输出“1”，如果2090被发现在那一行，“0”否则。 这个输出将在第25列，并与数字在同一行。

我做了一些testing，我知道我的代码确实输出“1”，当遇到2090和输出在正确的地方等。但是，输出后，“1”，它会立即重叠一个“0” 。 因此，我相信即使在If语句为真的情况下，其他情况也在运行。 在执行结束时，我的整个列只产生一堆“1”，没有别的。

我将不胜感激任何forms的帮助！ 谢谢。

 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 ，但是它立即继续testingCells(2, 11)与您的条件匹配，如果不匹配， Cells(2, 25)将被覆盖0 。

最终结果将总是取决于第20列的内容。

如果条件评估为真，则需要跳出内部循环。