Excel多工作表重复值处理：如何显示重复值所在工作表名称？

方法一：使用Excel公式（无需宏） #

假设所有工作表的数字列是B列，要在数字左侧的A列显示重复值所在的工作表名称：

场景1：显示所有重复的工作表名称（用逗号分隔） #

在目标单元格（如sheetC的A2）输入以下数组公式：
=TEXTJOIN(", ", TRUE, IF(COUNTIF(INDIRECT("'"&{"sheetA","sheetB","sheetC"}&"'!B:B"), B2)>0, {"sheetA","sheetB","sheetC"}, ""))

• 若使用Excel 365/2021，直接回车即可；其他版本需按Ctrl+Shift+Enter完成数组公式输入
• 把公式中的{"sheetA","sheetB","sheetC"}替换成你实际的工作表名称数组

场景2：只显示第一个找到的重复工作表名称 #

用以下数组公式替代：
=INDEX({"sheetA","sheetB","sheetC"}, MATCH(TRUE, COUNTIF(INDIRECT("'"&{"sheetA","sheetB","sheetC"}&"'!B:B"), B2)>0, 0))

• 同样按数组公式的规则输入，替换工作表名称数组即可

方法二：使用VBA自动触发（适合大量数据） #

如果需要在输入数字后自动填充工作表名称，可通过宏实现：

1. 按Alt+F11打开VBA编辑器
2. 在左侧工程窗口右键点击当前工作簿，选择「插入」→「模块」，粘贴以下代码：

Sub UpdateDuplicateSheetNames()
    Dim ws As Worksheet
    Dim checkSheets As Variant
    Dim cell As Range
    Dim i As Integer
    Dim matchSheet As String
    
    ' 替换为你的实际工作表名称
    checkSheets = Array("sheetA", "sheetB", "sheetC")
    
    For Each ws In ThisWorkbook.Worksheets
        ' 只处理指定范围内的工作表
        If Not IsError(Application.Match(ws.Name, checkSheets, 0)) Then
            ' 遍历数字列（B列，从第2行开始到最后一行数据）
            For Each cell In ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
                matchSheet = ""
                ' 检查其他工作表
                For i = LBound(checkSheets) To UBound(checkSheets)
                    If checkSheets(i) <> ws.Name Then
                        If Application.CountIf(ThisWorkbook.Worksheets(checkSheets(i)).Range("B:B"), cell.Value) > 0 Then
                            matchSheet = IIf(matchSheet = "", checkSheets(i), matchSheet & ", " & checkSheets(i))
                        End If
                    End If
                Next i
                ' 将结果写入左侧A列
                cell.Offset(0, -1).Value = matchSheet
            Next cell
        End If
    Next ws
End Sub

' 单元格内容变化时自动更新
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim checkSheets As Variant
    checkSheets = Array("sheetA", "sheetB", "sheetC")
    
    ' 仅处理数字列（B列）的变更
    If Target.Column = 2 And Not IsError(Application.Match(Sh.Name, checkSheets, 0)) Then
        UpdateDuplicateSheetNames
    End If
End Sub

3. 修改代码中的checkSheets数组为你实际的工作表名称
4. 保存工作簿为「Excel 启用宏的工作簿（.xlsm）」格式

注意事项 #

• 公式方法无需启用宏，但工作表数量较多时可能出现卡顿
• VBA方法效率更高，支持自动触发，但需保存为启用宏的格式
• 确保所有工作表的数字列位置一致（示例中为B列），若不同需调整公式或代码中的列号

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