VBA遍历单元格找到TOTALE ORE后终止外层For循环方法

问题原因说明 #

你第二次修改时把Exit For放在内层采集循环结束后的位置，逻辑本身完全正确：VBA中Exit For会直接终止离它最近的一层For循环，放在这个位置时，只要成功匹配到值为"TOTALE ORE"的单元格、跑完内层数值采集，就会立刻跳出外层遍历，不会继续扫描后续单元格。
如果代码运行后没有达到预期，基本是以下两类问题导致：

• 单元格值匹配失效：目标单元格内的文本带前后空格、不可见换行/特殊字符，或者大小写存在差异，导致If判断始终无法进入匹配分支，自然不会执行到Exit For语句
• 扫描范围不匹配：source_month.Resize(50, 2)划定的2列宽、50行高的区域内，没有包含目标单元格，循环跑完整个区域都没命中匹配项，自然不会提前终止

健壮性修正代码 #

Dim isFound As Boolean
isFound = False

For Each source_total_hours In source_month.Resize(50, 2)
    ' 用Trim去除前后不可见空白，强转文本类型避免匹配失败
    If Trim(CStr(source_total_hours.Value)) = "TOTALE ORE" Then
        ' 执行内层工时数值采集
        For Each source_hours In source_total_hours.Offset(0, 3).Resize(, 50)
            If IsNumeric(source_hours.Value) Then
                hours_list.Add source_hours.Value
            End If
        Next source_hours
        ' 采集完成标记命中，直接跳出外层遍历
        isFound = True
        Exit For
    End If
Next source_total_hours

' 可选排查逻辑：未命中时弹出提示
If Not isFound Then
    MsgBox "指定扫描区域内未找到值为TOTALE ORE的单元格", vbExclamation
End If

逻辑说明 #

• 新增Trim(CStr())处理单元格取值，彻底规避前后空白字符、非文本类型值导致的匹配失败问题
• 新增匹配标记位，方便后续排查未命中场景
• Exit For位置保持在内层循环结束后、外层If匹配块内部，完全满足「找到第一个目标、完成采集就立刻终止外层遍历」的需求，不会重复执行后续匹配项的采集流程

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