Excel VBA循环创建问题：循环无法遍历全表格的解决方法

我看了你的代码，马上发现两个核心问题导致循环没法遍历完整的目标区域，还有几个细节可以优化，下面一步步给你讲清楚：

问题分析 #

1. 错误的Exit For语句：当你遇到MM=""的单元格时，直接用Exit For退出了当前的列循环——这意味着这一行后面的所有单元格都不会被处理，直接跳到下一行，这是循环中断的主要原因。
2. 循环范围计算错误：你的目标区域是G6:AM37，计算一下：
   • 行数：37-6+1=32行，原代码For RR=1 To 33会让你处理到第33+5=38行，超出了目标区域；
   • 列数：G是第7列，AM是第39列，列数是39-7+1=33列，原代码For CC=1 To 31只处理到第31+6=37列，少了最后2列。
3. 其他小问题：变量声明放在循环内部不符合VBA规范，且未处理MM=40的情况，同时如果MM不是数字，CInt会触发运行时错误。

修正后的代码 #

Sub ProcessCellColors()
    ' 先清除目标区域的所有填充色
    Range("G6:AM37").Interior.ColorIndex = 0
    
    ' 统一声明所有变量（VBA最佳实践）
    Dim RR As Integer, CC As Integer
    Dim ColRange As Range
    Dim MM As Variant
    
    ' 遍历目标区域的所有行：G6到G37共32行
    For RR = 1 To 32
        ' 遍历目标区域的所有列：G到AM共33列
        For CC = 1 To 33
            Set ColRange = Cells(RR + 5, CC + 6) ' 对应G6到AM37的单元格
            MM = Mid(ColRange.Value, 9, 2) ' 显式读取单元格值，代码更清晰
            
            ' 处理MM为空的情况：只设置无填充，不退出循环
            If MM = "" Then
                ColRange.Interior.ColorIndex = 0
            ElseIf IsNumeric(MM) Then ' 先判断是否为数字，避免运行时错误
                If CInt(MM) > 39 Then
                    ColRange.Interior.ColorIndex = 50
                Else ' 包含等于40和小于40的情况，覆盖所有数字场景
                    ColRange.Interior.ColorIndex = 38
                End If
            Else
                ' 可选：如果MM不是数字，设置特殊颜色标记
                ColRange.Interior.ColorIndex = 3 ' 红色，可按需调整
            End If
        Next CC
    Next RR
End Sub

关键修改说明 #

• 移除了Exit For：遇到空值时只设置无填充，继续处理该行的下一个单元格；
• 修正了循环次数：行从1到32，列从1到33，确保完全覆盖G6:AM37区域；
• 增加了IsNumeric(MM)判断：避免当MM不是数字时CInt触发报错；
• 优化了条件判断：用Else覆盖等于40和小于40的情况，确保所有数字场景都有对应颜色；
• 变量统一声明在过程开头：符合VBA变量作用域规范，代码更易维护；
• 显式添加.Value：读取单元格值时明确调用，逻辑更清晰。

额外高效写法建议 #

如果你想避免手动计算行数列数的麻烦，可以直接遍历目标区域的每个单元格，代码更简洁不易出错：

Sub ProcessCellColors_Efficient()
    Dim targetRange As Range
    Dim cell As Range
    Dim MM As Variant
    
    Set targetRange = Range("G6:AM37")
    targetRange.Interior.ColorIndex = 0
    
    For Each cell In targetRange
        MM = Mid(cell.Value, 9, 2)
        If MM = "" Then
            cell.Interior.ColorIndex = 0
        ElseIf IsNumeric(MM) Then
            cell.Interior.ColorIndex = IIf(CInt(MM) > 39, 50, 38)
        Else
            cell.Interior.ColorIndex = 3
        End If
    Next cell
End Sub

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