Excel中无需取消隐藏即可搜索全工作簿（含隐藏表）返回匹配表名

方案1：VBA实现（推荐，兼容所有Excel版本） #

该方案全程不会修改任何工作表的隐藏状态，自动遍历所有普通隐藏、深度隐藏的工作表，全单元格匹配内容，直接返回结果。
操作步骤：

• 打开你的笔记工作簿，按Alt+F11快捷键调出VBA编辑器
• 在左侧工程资源管理器右键点击当前工作簿名称，依次选择「插入」-「模块」
• 将下方代码粘贴到弹出的模块代码窗口中

Sub 全工作簿全局搜索()
    Dim searchKey As Variant
    Dim ws As Worksheet
    Dim findCell As Range
    Dim firstAddr As String
    Dim resRow As Long
    
    ' 获取用户输入的搜索关键词
    searchKey = InputBox("请输入要查找的内容：", "全局搜索（含隐藏表）")
    If searchKey = "" Then Exit Sub
    
    ' 新建独立工作表存放结果，不改动原有任何内容
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("搜索结果").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    Sheets.Add(Before:=Sheets(1)).Name = "搜索结果"
    Sheets("搜索结果").Range("A1:C1") = Array("所在工作表", "单元格地址", "匹配内容")
    resRow = 2
    
    ' 遍历所有工作表，不受隐藏状态限制
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "搜索结果" Then
            ' 全已使用单元格模糊匹配
            Set findCell = ws.UsedRange.Find(What:=searchKey, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
            If Not findCell Is Nothing Then
                firstAddr = findCell.Address
                Do
                    ' 写入结果，全程不修改原工作表可见性
                    Sheets("搜索结果").Cells(resRow, 1) = ws.Name
                    Sheets("搜索结果").Cells(resRow, 2) = findCell.Address
                    Sheets("搜索结果").Cells(resRow, 3) = findCell.Value
                    resRow = resRow + 1
                    Set findCell = ws.UsedRange.FindNext(findCell)
                Loop While Not findCell Is Nothing And findCell.Address <> firstAddr
            End If
        End If
    Next ws
    
    ' 调整结果列宽方便查看
    Sheets("搜索结果").Columns("A:C").AutoFit
    MsgBox "搜索完成，共找到 " & resRow - 2 & " 条匹配结果，已展示在最前方的「搜索结果」表中", vbInformation
End Sub

• 粘贴完成后按F5即可运行，在弹出的输入框填入要查找的内容即可自动完成搜索。后续使用可以将文件保存为.xlsm（启用宏的工作簿）格式，打开时启用宏即可随时调用该功能。

方案2：公式实现（无需写VBA代码，适配Excel 365/2021及以上版本） #

该方案通过宏表函数获取所有工作表信息，配合动态数组公式实现搜索，同样不需要取消任何工作表的隐藏状态。
操作步骤：

• 点击顶部菜单栏「公式」选项卡，选择「定义名称」，名称填写GetAllSheetList，引用位置填写=GET.WORKBOOK(1)，点击确定保存。
• 选一个空白单元格作为搜索输入框（比如A1），填入你要查找的内容，在旁边的空白结果起始单元格输入以下公式，按回车即可自动溢出所有匹配结果：

=LET(
    sheet_list, TEXTBEFORE(RIGHT(GetAllSheetList,LEN(GetAllSheetList)-FIND("]",GetAllSheetList)),"'",2),
    search_content, A1,
    all_cell_ref, INDIRECT("'"&sheet_list&"'!1:1048576"),
    match_flag, ISNUMBER(SEARCH(search_content, all_cell_ref)),
    res_sheet, TOCOL(IF(match_flag, sheet_list, NA()),2),
    res_addr, TOCOL(IF(match_flag, ADDRESS(ROW(all_cell_ref),COLUMN(all_cell_ref),4),NA()),2),
    res_val, TOCOL(IF(match_flag, all_cell_ref, NA()),2),
    final_res, HSTACK(res_sheet, res_addr, res_val),
    IF(ROWS(final_res)>0, final_res, "未找到匹配内容")
)

注意事项：

• 该方案搜索范围覆盖所有工作表的全部单元格，无固定区域限制，不会改动原有工作表的隐藏状态和内容。
• 因为用到宏表函数，文件需要保存为.xlsm格式，权限要求远低于常规VBA宏。
• 如果使用的是2021以前的旧版本Excel，不支持动态数组函数，建议优先使用VBA方案。

两个方案均适配个人笔记存储的使用场景，不需要统一各工作表格式，不需要提前做任何工作表状态调整，匹配后直接返回内容所在的工作表名称和具体位置。

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