Excel宏开发求助：仅汇总含生效条件格式的工作表

疑问1：同步汇总还是事后检索？ #

推荐在jbi文件导入循环过程中同步完成汇总，理由如下：

• 效率更高：无需在所有工作表生成后再次遍历全表，减少重复操作
• 逻辑更清晰：生成工作表后立即判断是否符合条件，直接写入汇总表，避免后续维护两套逻辑
• 资源占用更少：实时处理可避免存储大量待检索的工作表数据，尤其在文件数量较多时更明显

疑问2：如何检索生效的条件格式？ #

条件格式的生效状态需通过单元格的DisplayFormat属性判断，但注意以下要点：

• DisplayFormat仅能在工作表处于激活状态时访问，否则会报错
• 不能直接对整个Range对象判断，需遍历区域内的每个单元格（因为区域内可能只有部分单元格满足条件）
• 确认条件格式对应的颜色值（如你代码中的ColorIndex = 49407）与实际高亮颜色一致，避免判断偏差

优化后的VBA代码 #

针对你现有代码的问题（区域判断错误、赋值逻辑bug、Select操作冗余等），优化后的代码如下：

Sub Create_Summary()
    Dim wsTemplate As Worksheet
    Dim wsSummary As Worksheet
    Dim checkCell As Range
    Dim hasHighlight As Boolean
    Dim targetRow As Long
    
    ' 定义工作表对象，避免Select操作
    Set wsTemplate = ThisWorkbook.Sheets("PGM Copy Template")
    Set wsSummary = ThisWorkbook.Sheets("Change Summary")
    
    hasHighlight = False
    
    ' 遍历目标区域，检查是否有生效的条件格式高亮
    For Each checkCell In wsTemplate.Range("AF2:BA1000")
        ' 仅当单元格显示格式的背景色匹配时标记为有效
        If checkCell.DisplayFormat.Interior.ColorIndex = 49407 Then
            hasHighlight = True
            Exit For ' 找到一个即停止遍历，提升效率
        End If
    Next checkCell
    
    ' 若存在高亮单元格，写入汇总表
    If hasHighlight Then
        ' 获取汇总表的目标行（从第3行开始插入）
        targetRow = 3
        wsSummary.Rows(targetRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        
        ' 判断F4是否为错误值（#N/A），使用IsError更可靠
        If IsError(wsTemplate.Range("F4").Value) Then
            wsSummary.Range("B" & targetRow).Value = wsTemplate.Range("AI5").Value
            wsSummary.Range("C" & targetRow).Value = wsTemplate.Range("AI4").Value
        Else
            wsSummary.Range("B" & targetRow).Value = wsTemplate.Range("F5").Value
            wsSummary.Range("C" & targetRow).Value = wsTemplate.Range("F4").Value ' 修复原代码重复赋值B3的bug
        End If
    End If
End Sub

代码优化点说明： #

• 移除Select/Selection操作，直接通过工作表对象操作，提升代码稳定性和效率
• 遍历单元格判断生效的条件格式，避免直接判断整个Range的错误
• 使用IsError函数判断#N/A，比直接对比文本更可靠
• 修复原代码中Else分支重复赋值B3的bug
• 增加变量标记是否存在高亮，找到后立即停止遍历，提升效率

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