Excel VBA如何循环遍历行：若L列含D则对应行H列数值转负

原始代码问题说明 #

• 逻辑判断写反：需求为L列包含字符"D"时修改对应H列值，你原始代码的分支逻辑完全相反
• 字符串常量未加引号：代码中的D未包裹双引号，会被VBA识别为未声明的变量导致报错
• 缺少循环结构：仅写死处理第5行，没有遍历后续数据行的逻辑

修正后完整代码 #

Sub NewCode()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 绑定工作表
    Set ws = Worksheets("Sheet1")
    ' 获取L列最后一个有数据的行号，避免遍历空行
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
    
    ' 从第5行开始循环到最后一行数据
    For i = 5 To lastRow
        ' 判断当前行L列是否包含字符"D"，如果需要区分大小写可以去掉最后一个参数vbTextCompare
        If InStr(1, ws.Range("L" & i).Value, "D", vbTextCompare) > 0 Then
            ' 对应行H列数值转负数
            ws.Range("H" & i).Value = ws.Range("H" & i).Value * -1
        End If
    Next i
End Sub

关键逻辑说明 #

• lastRow 动态获取L列最后一行有数据的行号，不用手动修改适配不同数据量的表格
• For i = 5 To lastRow 实现从第5行开始逐行遍历所有有效数据行
• InStr 函数用于判断单元格内容是否包含指定字符，支持按需选择是否区分大小写

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