VBA嵌套For循环未完成子循环即跳至父循环问题排查

嘿，我一眼就瞅出你代码里的两个关键问题，直接导致计数根本没法正常累计——咱们来拆解清楚：

1. 循环嵌套的逻辑完全搞反了 #

你写的For Each r In rngData.Cells是在逐个遍历区域里的单个单元格，接着又在这个单个单元格里遍历r.Columns——单个单元格哪来的多列？这内层循环其实根本没执行，而且完全偏离了你“遍历每行→每行内遍历单元格”的目标。

正确的层级应该是：先遍历数据区域的每一行，再在该行内遍历每个单元格。也就是把外层循环改成For Each r In rngData.Rows，内层循环改成For Each c In r.Cells。

2. 计数变量的重置位置错误 #

你把dur = 0放在了Next c之后、Next r之前，这意味着每处理完一行，就把计数清零了，那自然没法累计所有行的绿色单元格数量。

• 如果你的需求是统计所有行的总绿色单元格数：把dur = 0放在整个循环嵌套的最外面，只初始化一次。
• 如果你的需求是统计每行的绿色单元格数：把dur = 0放在进入每行循环的开头，处理完当前行后把计数存起来，再进入下一行。

修正后的代码示例 #

示例1：统计所有绿色单元格的总数 #

Dim dur As Long
Dim cGreen As Long
cGreen = RGB(0, 255, 0) ' 替换成你实际使用的绿色值

' 初始化计数在循环外部，只执行一次
dur = 0

' 先遍历每一行，再遍历该行的每个单元格
For Each r In rngData.Rows
    For Each c In r.Cells
        If c.Interior.Color = cGreen Then
            dur = dur + 1
        End If
    Next c
Next r

' 输出结果
MsgBox "总绿色单元格数量：" & dur

示例2：统计每行的绿色单元格数并写入结果列 #

Dim dur As Long
Dim cGreen As Long
Dim resultCol As Integer
cGreen = RGB(0, 255, 0)
resultCol = rngData.Columns.Count + 1 ' 结果放在数据区域的右侧第一列

' 遍历每一行
For Each r In rngData.Rows
    ' 处理当前行前重置计数
    dur = 0
    ' 遍历该行的所有单元格
    For Each c In r.Cells
        If c.Interior.Color = cGreen Then
            dur = dur + 1
        End If
    Next c
    ' 将当前行的计数写入结果列
    r.Cells(1, resultCol).Value = dur
Next r

简单来说，核心就是把循环层级搞对，再把计数重置的位置放到符合你需求的地方，问题就能解决啦！

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