如何简化VBA中逐行判断单元格值并赋值的重复IF语句？

方案1：循环实现（新手友好） #

直接遍历指定行号逐行处理，逻辑和你原来的写法完全一致，只是用循环代替重复的If语句，后续调整处理范围只需要修改循环的起止行号即可：

Sub Test()
    Dim i As Integer
    ' 遍历第1至第6行
    For i = 1 To 6
        If Cells(i, "B").Value > 0 Then
            Cells(i, "A").Value = 0
        End If
    Next i
End Sub

方案2：数组实现（大数据量效率更高） #

如果后续需要处理上千行数据，用数组一次性读写可以大幅降低VBA和工作表的交互开销，运行速度更快：

Sub Test()
    Dim arr As Variant, i As Integer
    ' 一次性读取整段区域数据到内存数组
    arr = Range("A1:B6").Value
    For i = 1 To UBound(arr)
        If arr(i, 2) > 0 Then arr(i, 1) = 0
    Next i
    ' 处理结果批量写回工作表
    Range("A1:B6").Value = arr
End Sub

方案3：无循环极简写法 #

直接调用工作表函数批量判断，一行代码即可实现需求：

Sub Test()
    Range("A1:A6").Value = Evaluate("IF(B1:B6>0,0,A1:A6)")
End Sub

内容的提问来源于stack exchange，提问作者Peter David