学习日志 | VBA判断语句IF

判断VBA代码

Sub 判断()
    Dim i
    Worksheets(2).Activate '激活表2
    For i = 4 To 8 '在4行到8行循环
        If Range("A" & i) = "有" And Range("B" & i) >= 20 Then
            Range("c" & i) = "符合"
        Else
            Range("c" & i) = "不符合"
        End If
        
    Next
    MsgBox "执行完毕！" '对话框
        
End Sub