VBA宏无法正常遍历工作表：条件格式循环执行异常排查

循环失效的核心原因 #

• 工作表总数不足6时循环直接跳过：你的循环设定从j=6开始遍历到工作表总数i，如果当前工作簿的工作表数量小于6，VBA会直接跳过整个循环，不执行任何迭代，也不会抛出报错，这是导致你看不到效果的最常见原因。

验证与修复步骤 #

1. 确认工作表数量：在循环前添加一行代码，快速查看当前工作簿的工作表总数：

   MsgBox "当前工作簿共有 " & i & " 个工作表"
   

   如果弹出的数字小于6，说明循环从未启动。
2. 调整循环起始值：根据实际需求修改For j = 6 To i中的起始数字，比如需要从第1个工作表开始遍历，就改成For j = 1 To i；若确实要从第6个开始，确保工作簿至少包含6个工作表。

保留现有结构的优化建议（不破坏复制粘贴逻辑） #

你希望保留录制代码的结构供用户直接复制粘贴，可小幅修改避免Activate/Select带来的潜在问题，同时不改变核心逻辑：

Sub Test()

Dim rg As Range
Dim i As Integer, j As Integer
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet '新增工作表变量

i = wb.Worksheets.Count

Application.ScreenUpdating = False
    
'COPY CODE BETWEEN "OBERES ENDE" and "UNTERES ENDE"

 For j = 6 To i  
 Set ws = wb.Sheets(j) '直接绑定工作表，替代Activate操作
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------- OBERES ENDE --------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

' only one as example
' 将录制的Select/Selection替换为ws.Columns，不破坏原有代码结构
    ws.Columns("A:K").FormatConditions.Add Type:=xlExpression, Formula1:="=$K1=50%"
    ws.Columns("A:K").FormatConditions(ws.Columns("A:K").FormatConditions.Count).SetFirstPriority
    With ws.Columns("A:K").FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    ws.Columns("A:K").FormatConditions(1).StopIfTrue = False
        
    
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------- UNTERES ENDE --------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Next j

wb.Save
Application.ScreenUpdating = True

End Sub

修改后，用户只需将宏录制器生成的Columns("A:K").Select和Selection.xxx替换为ws.Columns("A:K").xxx即可，既保留了便捷的复制粘贴逻辑，又避免了激活工作表带来的不稳定问题。

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