请求修改VBA宏：为工作簿多工作表C-T列零值设置白色字体

你的问题很常见——原来的宏只针对当前激活的工作表操作，要让它覆盖整个工作簿，只需要添加一个遍历所有工作表的循环逻辑就行。

先看你原来的代码，问题出在没有遍历工作表的环节，所以只会处理当前选中的表：

Sub Macro1()
 Columns("E:T").Select
 Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
 Formula1:="=0"
 Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
 With Selection.FormatConditions(1).Font
 .ThemeColor = xlThemeColorDark1
 .TintAndShade = 0
 End With
 Selection.FormatConditions(1).StopIfTrue = False
End Sub

下面是修改后的代码，它会遍历工作簿里的每一个工作表，并且直接操作你需要的C列到T列：

Sub FormatAllSheetsZeroValues()
    Dim ws As Worksheet
    Dim targetRange As Range
    
    ' 遍历工作簿中的每一个工作表
    For Each ws In ThisWorkbook.Worksheets
        Set targetRange = ws.Columns("C:T")
        
        ' 清除该区域已有的条件格式（可选，避免重复添加）
        targetRange.FormatConditions.Delete
        
        ' 添加新的条件格式：值等于0时设置白色字体
        With targetRange.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0")
            .SetFirstPriority
            With .Font
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = 0
            End With
            .StopIfTrue = False
        End With
    Next ws
End Sub

关键修改说明： #

• 添加了For Each ws In ThisWorkbook.Worksheets循环：逐个处理工作簿里的每个工作表，确保所有表都被覆盖
• 替换了依赖选中状态的Select/Selection操作：直接用ws.Columns("C:T")引用目标区域，代码更稳定、执行效率更高，也不会因为选中状态变化出错
• 新增了targetRange.FormatConditions.Delete：可选步骤，避免多次运行宏后重复添加相同的条件格式（如果不需要可以删除这行）
• 修正了目标列范围：从原来的E:T改成了你需求的C:T

使用方法很简单：打开VBA编辑器，把这段代码替换你原来的宏，然后运行FormatAllSheetsZeroValues，就能批量处理所有工作表了。

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