Excel VBA：遍历A列满足条件时对应F列单元格乘-1的实现方法

实现功能 #

• 遍历表格A列所有有数据的行
• 当A列单元格值为500、600或700时，自动将对应行F列的数值乘以-1转为负数
• 示例场景：A3单元格值为500，原F3值为500，运行代码后F3自动更新为-500

可用VBA代码 #

' 遍历A列，将符合条件的行F列数值转为负数
Dim lr As Long, i As Long
' 获取A列最后一行有数据的行号
lr = Cells(Rows.Count, "A").End(xlUp).Row
' 从第2行开始遍历（跳过表头，如无表头可改为i=1）
For i = 2 To lr
    ' 判断A列值是否为500/600/700，符合条件则修改F列符号
    If Cells(i, "A").Value = 500 Or Cells(i, "A").Value = 600 Or Cells(i, "A").Value = 700 Then
        Cells(i, "F").Value = Cells(i, "F").Value * -1
    End If
Next i

代码说明 #

• 修复了原有代码只写运算逻辑、没有赋值给F列单元格的语法问题
• 移除了对数字匹配无意义的大写转换操作
• 合并了多段重复的判断逻辑，代码更简洁，运行效率更高
• 若你的表格没有表头，把For i = 2 To lr里的2改成1即可适配

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