如何用VBA在指定区域检测到False时为对应行AN列赋值并着色

我来帮你梳理下现有代码里的问题，然后给出可以正常运行的版本：

原代码的几个问题： #

• 范围错误：你需要处理的是M列到AL列，但代码里写的是Sheet7.Range("W:AL")，范围不匹配。
• 遍历逻辑不全：r.Cells(i)只检查了每行的第一个单元格（W列），没有遍历该行M到AL的所有单元格，所以只会判断单个单元格的值，不是整行区域。
• 未定义RowCount：代码中使用了RowCount但没有赋值，需要先获取数据区域的实际有效行数。
• 布尔值判断错误：如果单元格里是原生的布尔值（True/False），不是文本字符串，用"False"（带引号）是匹配不到的，应该直接用False（不带引号）。

修正后的代码： #

Sub MarkFalseRows()
    Dim ws As Worksheet
    Dim checkRange As Range
    Dim rowNum As Long
    Dim cell As Range
    Dim hasFalse As Boolean
    
    ' 指定工作表（这里用Sheet7，你可以根据实际调整）
    Set ws = Sheet7
    ' 设置需要检查的区域：M列到AL列，从第5行开始到最后一行有数据的行
    Set checkRange = ws.Range("M5:AL" & ws.Cells(ws.Rows.Count, "M").End(xlUp).Row)
    
    ' 逐行遍历检查区域
    For rowNum = 1 To checkRange.Rows.Count
        hasFalse = False ' 重置标记
        ' 遍历当前行的所有单元格
        For Each cell In checkRange.Rows(rowNum).Cells
            ' 判断是否为False（如果是文本型的"False"，就改成cell.Value = "False"）
            If cell.Value = False Then
                hasFalse = True
                Exit For ' 找到一个False就不用继续检查该行其他单元格了
            End If
        Next cell
        
        ' 如果该行存在False值
        If hasFalse Then
            ' 给整行着色（你可以调整颜色码，15773610是浅蓝绿色）
            ws.Rows(checkRange.Row + rowNum - 1).Interior.Color = 15773610
            ' 在AN列对应行填入1
            ws.Cells(checkRange.Row + rowNum - 1, "AN").Value = 1
        End If
    Next rowNum
End Sub

额外说明： #

• 如果你的单元格里的False是文本字符串（不是原生布尔值），把If cell.Value = False Then改成If cell.Value = "False" Then即可。
• 代码里用了ws.Cells(ws.Rows.Count, "M").End(xlUp).Row来自动获取M列最后一行有数据的行，避免手动设置RowCount。
• 找到第一个False后用Exit For跳出该行的单元格遍历，提升运行效率。

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