学习日志 | VBA判断语句IF

2年前更新

03490

判断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

1.文章版权归作者所有，可以不经允许任意转载。 2.如有侵权请告知，我会第一时间删除。

THE END