如何用VBA通过If/And语句检查两列并按条件高亮单元格？

原尝试代码的问题 #

• 固定判断E1和F1单元格，未匹配当前循环单元格所在行，逻辑错误——只有第一行符合条件时才会高亮所有E:F列单元格，完全不符合需求。
• 遍历整列会处理大量空单元格，效率极低，未按要求限制到至少200行或实际数据行。
• 大小写判断不统一，需求为“MAKE”但部分代码用“Make”，可能导致匹配失效。

修正后的高效代码 #

版本1：按行遍历（推荐，效率更高） #

Sub Highlight_Make_Y()
    Dim lastRow As Long
    Dim i As Long
    ' 取E列实际数据最后一行，若不足200行则取200行
    lastRow = WorksheetFunction.Max(Cells(Rows.Count, "E").End(xlUp).Row, 200)
    
    ' 逐行检查条件
    For i = 1 To lastRow
        ' 不区分大小写判断，如需严格匹配可删除UCase
        If UCase(Cells(i, "E").Value) = "MAKE" And UCase(Cells(i, "F").Value) = "Y" Then
            ' 高亮当前行的E、F单元格
            Range(Cells(i, "E"), Cells(i, "F")).Interior.ColorIndex = 6
        Else
            ' 可选：清除不符合条件单元格的高亮
            Range(Cells(i, "E"), Cells(i, "F")).Interior.ColorIndex = xlColorIndexNone
        End If
    Next i
End Sub

版本2：修正原单元格遍历逻辑 #

Sub highlight_2_Fixed()
    Dim cell As Range
    Dim targetRow As Long
    Dim R As Range
    ' 限制范围为E1:F[实际最后行/200行]
    Set R = Range("E1:F" & WorksheetFunction.Max(Cells(Rows.Count, "E").End(xlUp).Row, 200))
    
    For Each cell In R
        targetRow = cell.Row
        ' 严格匹配大小写，如需不区分则添加UCase
        If Cells(targetRow, "E").Value = "MAKE" And Cells(targetRow, "F").Value = "Y" Then
            cell.Interior.ColorIndex = 6
        Else
            cell.Interior.ColorIndex = xlColorIndexNone
        End If
    Next cell
End Sub

代码说明 #

• 行范围控制：通过WorksheetFunction.Max确保检查范围至少覆盖200行，同时兼容实际数据行数。
• 大小写处理：UCase函数统一转换为大写判断，避免因输入大小写不一致导致的匹配失败，按需选择是否保留。
• 高亮重置：Else分支用于清除不符合条件单元格的高亮，可根据实际需求删除该部分。
• 效率优化：版本1按行遍历，减少重复条件判断，比逐个单元格遍历的版本2效率更高。

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