将IF/AND转换为VBA并延伸到工作表

Sub IF_AND_Example()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
    
    Dim i As Integer
    Dim value1 As Integer
    Dim value2 As Integer
    Dim value3 As Integer
    
    For i = 2 To 10 ' 假设数据从第2行开始，到第10行结束
        value1 = ws.Cells(i, 1).Value ' 第一列的值
        value2 = ws.Cells(i, 2).Value ' 第二列的值
        value3 = ws.Cells(i, 3).Value ' 第三列的值
        
        If value1 > 10 And value2 < 5 Then ' 如果第一列的值大于10且第二列的值小于5
            ws.Cells(i, 4).Value = "条件满足" ' 在第四列写入"条件满足"
        Else
            ws.Cells(i, 4).Value = "条件不满足" ' 在第四列写入"条件不满足"
        End If
    Next i
End Sub