Question

我在excel编辑vba程序时用到if语句如下，可是运行时单元格J1到J20都显示0，而我设置在a10到a20的单元格数

是满足条件2的，即这些数范围在21到40之间，我不知道问题出在哪，还请各位大侠不吝赐教〉〉
Sub 正数()
For i = 1 To 20
If 2 <= Worksheets("Sheet1").Range("A" & i).Value <= 20 Then
Worksheets("Sheet1").Range("J" & i).Value = 0
ElseIf 21 <= Worksheets("Sheet1").Range("A" & i).Value <= 40 Then
Worksheets("Sheet1").Range("J" & i).Value = 1
End If
Next
End Sub

Answer 1

Sub 正数()
For i = 10 To 20
    If Worksheets("Sheet1").Range("A" & i).Value >= 2 And Worksheets("Sheet1").Range("A" & i).Value <= 20 Then
              
            Worksheets("Sheet1").Range("J" & i).Value = 0
                      
        ElseIf Worksheets("Sheet1").Range("A" & i).Value >= 21 And Worksheets("Sheet1").Range("A" & i).Value <= 40 Then
                  
                Worksheets("Sheet1").Range("J" & i).Value = 1
                          
    End If
              
Next
End Sub

Answer 2

2 <= Worksheets("Sheet1").Range("A" & i).Value <= 20
这种条件不能一下子写成这样,要分步写:
Sub 正数()
For i = 10 To 20
If 2 <= Worksheets("Sheet1").Range("A" & i).Value and Worksheets("Sheet1").Range _("A" & i).Value <= 20 Then
Worksheets("Sheet1").Range("J" & i).Value = 0
ElseIf 21 <= Worksheets("Sheet1").Range("A" & i).Value and Worksheets("Sheet1").Range _("A" & i).Value<= 40 Then
Worksheets("Sheet1").Range("J" & i).Value = 1
End If
Next
End Sub

Answer 3

你这样当然会出现全为0的情况了。供参考：条件是不能写成2<=x<=20的，如果一个变量要符合这样的条件，应该写成(x>=2)AND(x<=20)。