Excel跨工作表条件格式：排除当前表校验M3单元格重复值

非VBA自动化方案（避开字符限制） #

步骤1：用名称管理器简化跨表引用 #

1. 打开Excel的公式 > 名称管理器，点击「新建」
2. 名称设为 TargetSheets，引用位置输入所有需要对比的工作表名称数组，示例：

   ={"Eyk","Finn","Clemens","Luka"} // 按实际需求添加全部15+个工作表名称
   

3. 再新建名称 OtherM3Cells，引用位置输入：

   =INDIRECT(TargetSheets&"!M3")
   

   这个名称会动态引用所有目标工作表的M3单元格。

步骤2：设置单一条件格式规则 #

选中当前工作表的M3单元格（或需要应用规则的范围），打开开始 > 条件格式 > 新建规则 > 使用公式确定要设置格式的单元格，输入以下公式：

=AND(
    M3<>"", 
    M3<>0, 
    M3<>"DNF", 
    M3<>"DNS", 
    M3<>"DSQ",
    SUMPRODUCT(
        --(OtherM3Cells=M3),
        --(OtherM3Cells<>""),
        --(OtherM3Cells<>0),
        --(OtherM3Cells<>"DNF"),
        --(OtherM3Cells<>"DNS"),
        --(OtherM3Cells<>"DSQ")
    )>0
)

设置好重复标记格式（比如填充色）后确定即可。

优势 #

• 仅需维护TargetSheets里的工作表名称，新增/删除工作表时直接修改数组，无需改动条件格式
• 通过名称管理器拆分长公式，避开Excel条件格式的255字符限制

VBA批量生成规则（可选，极端场景适用） #

如果上述公式仍触发字符限制，可使用VBA批量生成规则，代码如下：

Sub AddDuplicateConditionalFormat()
    Dim ws As Worksheet
    Dim targetSheets As Variant
    Dim wsName As Variant
    Dim cfRule As FormatCondition
    
    ' 定义需要对比的工作表名称数组
    targetSheets = Array("Eyk", "Finn", "Clemens", "Luka")
    
    ' 指定当前工作表（可替换为具体表名，如 Sheets("你的表名")）
    Set ws = ActiveSheet
    
    ' 清除M3原有条件格式规则
    ws.Range("M3").FormatConditions.Delete
    
    ' 批量添加规则
    For Each wsName In targetSheets
        Set cfRule = ws.Range("M3").FormatConditions.Add(Type:=xlExpression, Formula1:= _
            "=AND(M3<>"""", M3<>0, M3<>""DNF"", M3<>""DNS"", M3<>""DSQ"", " & wsName & "!M3<>"""", M3=" & wsName & "!M3)")
        ' 设置重复标记格式（示例为黄色填充，可按需修改）
        With cfRule.Interior
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
        End With
    Next wsName
End Sub

使用方法：按Alt+F11打开VBA编辑器，插入模块，粘贴代码，修改targetSheets数组和格式设置，运行宏即可。

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