如何在VBA的For Each循环中正确嵌套For循环与If语句？

问题背景 #

在VBA中尝试用嵌套For循环+If语句简化重复范围判断时，逻辑不符合预期。原本希望替代大量繁琐的ElseIf，但实际运行结果与期望不符，同时在单元格批量处理、用户窗体控件筛选场景下也遇到类似逻辑问题。

初始测试代码与问题 #

测试代码 #

Sub test()
    Dim i As Long
    Dim SelectRange As Range
    Dim test_counter As Long

    Set SelectRange = Range("A1:G10")
    SelectRange.Interior.ColorIndex = 2

    For Each eCell In SelectRange
        If eCell.Value <> "" Then
            test_counter = test_counter + 1
            Debug.Print test_counter
        
            For i = 1 To 5
                If Range("B" & i).Value = "test" Then
                    Debug.Print "yes"
                Else
                    Debug.Print "BYE"
                End If
            Next i
         
        End If
    Next eCell
End Sub

测试场景与差异 #

• B1:B5值依次为：test、test、test、test、NONONO
• 期望输出：1 yes 2 yes 3 yes 4 yes 5 BYE
• 实际输出：重复打印yes/BYE序列（原因：外层For Each遍历A1:G10的每个非空单元格，每个单元格都会触发一次内层B1:B5的遍历，导致输出重复）

后续新增问题（2023年6月17日更新） #

1. 单元格变色逻辑问题：尝试跳过C2:C7的变色操作，但循环处理时出现反复修改——i=2时C2未变色但C3:C7变色；i=3时C3跳过但C2又被变色，无法实现整个C2:C7跳过变色。
2. 用户窗体控件筛选问题：需要跳过TextBox1和TextBox34~43，嵌套循环写法失败，只能逐个写ElseIf，效率极低。

解决方案 #

1. 修正初始测试代码逻辑 #

核心：将遍历目标改为B1:B5，直接绑定计数与判断逻辑，避免外层无关循环的干扰。

Sub test_Fixed()
    Dim test_counter As Long
    Dim targetCell As Range
    
    test_counter = 0
    '直接遍历目标范围B1:B5
    For Each targetCell In Range("B1:B5")
        test_counter = test_counter + 1
        Debug.Print test_counter;
        '判断当前单元格值
        If targetCell.Value = "test" Then
            Debug.Print "yes"
        Else
            Debug.Print "BYE"
        End If
    Next targetCell
End Sub

2. 批量单元格处理：跳过指定范围 #

核心：遍历所有待处理单元格，逐个判断是否属于跳过范围，仅对非跳过单元格执行操作。

Sub ColorCells_SkipRange()
    Dim ws As Worksheet
    Dim allProcessCells As Range
    Dim skipCells As Range
    Dim currentCell As Range
    
    Set ws = ActiveSheet
    Set allProcessCells = ws.Range("C1:C10") '待处理的总范围
    Set skipCells = ws.Range("C2:C7") '需要跳过的范围
    
    '重置所有单元格颜色
    allProcessCells.Interior.ColorIndex = 2
    
    For Each currentCell In allProcessCells
        '判断当前单元格是否不在跳过范围内
        If Intersect(currentCell, skipCells) Is Nothing Then
            currentCell.Interior.ColorIndex = 3 '示例：设置为红色
        End If
    Next currentCell
End Sub

3. 用户窗体控件：高效跳过指定控件 #

核心：遍历所有控件，通过名称规则判断是否属于跳过列表，替代繁琐的ElseIf。

Sub ProcessFormControls()
    Dim ctl As Control
    Dim skipStartNum As Long, skipEndNum As Long
    Dim ctlNum As Long
    
    skipStartNum = 34
    skipEndNum = 43
    
    For Each ctl In UserForm1.Controls
        '仅处理TextBox类型控件
        If TypeName(ctl) = "TextBox" Then
            '提取控件名称中的数字部分
            If IsNumeric(Mid(ctl.Name, 8)) Then
                ctlNum = CLng(Mid(ctl.Name, 8))
            End If
            '判断是否需要跳过：TextBox1 或 编号在34-43之间
            If Not (ctl.Name = "TextBox1" Or _
                (ctlNum >= skipStartNum And ctlNum <= skipEndNum)) Then
                '执行需要的操作，例如清空内容
                ctl.Value = ""
            End If
        End If
    Next ctl
End Sub

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