如何用Excel VBA实现条件格式遍历，按min/max区间高亮指定单元格

实现逻辑 #

• 自动识别F列的最后一个非空行作为处理边界，无需手动指定范围
• 逐行校验F列（最小值）、G列（最大值）的有效性，跳过非数值行避免报错
• 对每行H~Y列的非空数值单元格做阈值匹配，对应设置背景填充色
• 所有有效单元格处理完成后自动终止运行

完整代码 #

Sub 按阈值高亮单元格()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim minVal As Double, maxVal As Double
    Dim cell As Range
    Dim cellVal As Double
    
    ' 绑定工作表，可替换为指定工作表：Set ws = Sheets("你的表名")
    Set ws = ActiveSheet
    
    ' 获取F列最后一个非空行号，作为处理终止行
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    
    ' 无有效数据直接退出
    If lastRow < 2 Then
        MsgBox "未检测到第2行及以下的有效数据"
        Exit Sub
    End If
    
    ' 逐行遍历处理
    For i = 2 To lastRow
        ' 校验当前行F、G列是否为合法数值，不符合则跳过当前行
        If Not IsNumeric(ws.Cells(i, "F")) Or Not IsNumeric(ws.Cells(i, "G")) Then
            GoTo NextRow
        End If
        
        minVal = ws.Cells(i, "F").Value
        maxVal = ws.Cells(i, "G").Value
        
        ' 校验阈值合法性：最小值大于0且最大值不小于最小值，不符合则跳过
        If minVal <= 0 Or maxVal < minVal Then
            GoTo NextRow
        End If
        
        ' 遍历当前行H到Y列所有单元格
        For Each cell In ws.Range("H" & i & ":Y" & i)
            ' 跳过空单元格和非数值单元格
            If IsEmpty(cell) Or Not IsNumeric(cell.Value) Then
                cell.Interior.ColorIndex = xlNone
                GoTo NextCell
            End If
            
            cellVal = cell.Value
            
            ' 按规则匹配颜色
            Select Case True
                Case cellVal >= 0 And cellVal <= minVal * 0.5
                    cell.Interior.Color = RGB(255, 0, 0) ' 红色
                Case cellVal > minVal * 0.5 And cellVal <= minVal
                    cell.Interior.Color = RGB(255, 255, 0) ' 黄色
                Case cellVal > minVal And cellVal <= maxVal
                    cell.Interior.Color = RGB(0, 255, 0) ' 绿色
                Case cellVal > maxVal
                    cell.Interior.Color = RGB(165, 42, 42) ' 棕色
                Case Else ' 负数等不符合阈值范围的清空颜色
                    cell.Interior.ColorIndex = xlNone
            End Select
NextCell:
        Next cell
NextRow:
    Next i
End Sub

使用说明 #

• 打开Excel后按Alt+F11调出VBA编辑器，插入模块后粘贴上述代码即可运行
• 如果需要固定处理某张工作表，将代码中Set ws = ActiveSheet修改为Set ws = Sheets("你的工作表名称")
• 颜色可通过调整RGB参数自定义，当前使用的是标准配色

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