Excel VBA宏列值条件高亮及无大于1值时退出逻辑实现求助

原有代码问题说明 #

• 退出循环的Exit For语句写在了全1判断逻辑之前，导致全1的校验代码永远无法执行
• 仅标记了第一个符合「大于1小于26」条件的单元格，没有遍历处理范围内所有符合条件的单元格
• 遍历逻辑顺序错误，未覆盖所有单元格的异常校验场景

调整后完整代码 #

Sub 数值校验标红()
    Dim C As Range
    Dim hasGreaterThan1 As Boolean ' 标记是否存在大于1的值
    
    ' 初始化标记
    hasGreaterThan1 = False
    
    For Each C In Range("B2:B25000").Cells
        ' 优先校验超过25的异常场景
        If C.Value > 25 Then
            C.Interior.Color = VBA.ColorConstants.vbRed
            MsgBox "Too big!"
            Exit Sub
        ' 校验是否在1-26的标红区间
        ElseIf C.Value > 1 And C.Value < 26 Then
            C.Interior.Color = VBA.ColorConstants.vbRed
            hasGreaterThan1 = True ' 存在大于1的值，更新标记
        End If
    Next
    
    ' 遍历完成后判断是否所有值都为1
    If hasGreaterThan1 = False Then
        Exit Sub ' 无大于1的值，直接退出
    End If
    
    ' 宏的后续执行逻辑写在此处
    ' ......
    
End Sub

改动点说明 #

• 新增hasGreaterThan1布尔变量，遍历过程中只要遇到大于1的值就标记为真
• 调整判断顺序，优先校验大于25的异常场景，遇到就直接标红弹窗退出
• 遍历过程中直接处理所有符合「大于1小于26」条件的单元格，统一标红
• 遍历结束后判断标记变量，如果仍为假说明所有值都为1，直接退出宏，否则执行后续逻辑

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