Excel概览表需求：提取含指定单元格数据的工作表名称

方法1：动态数组函数组合（Excel 365/2021及以上适用） #

利用Excel动态数组特性，无需手动下拉即可自动生成符合条件的工作表名称列表，公式如下：

=FILTER(
    MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,999),
    BYROW(
        MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,999),
        LAMBDA(sheet,SUM(INDIRECT("'"&sheet&"'!A1:A3"))>0)
    )
)

公式说明： #

• GET.WORKBOOK(1)：返回工作簿中所有工作表的完整名称（含路径和工作簿名）
• MID(...,FIND("]",...)+1,999)：提取纯工作表名称，去除路径和工作簿前缀
• BYROW(...,LAMBDA(...))：遍历每个工作表名称，判断对应A1:A3区域的数值总和是否大于0
• FILTER：过滤掉不符合条件的空值，仅保留符合要求的工作表名称

注意：若工作表名称包含空格或特殊字符，公式中的单引号已自动适配这种情况；输入公式后需将文件保存为.xlsm格式以启用宏表函数。

方法2：VBA宏（全Excel版本适用） #

对于无动态数组功能的旧版Excel，使用VBA宏可稳定实现批量提取：

1. 按Alt+F11打开VBA编辑器
2. 右键工作簿名称 → 插入 → 模块
3. 粘贴以下代码：

Sub ListSheetsWithValues()
    Dim ws As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Integer
    Dim sumRange As Range
    
    ' 指定结果写入的概览表，可根据实际修改工作表名称
    Set targetWs = ThisWorkbook.Worksheets("概览表")
    ' 清空之前的结果（假设结果从A2开始，A1为表头）
    targetWs.Range("A2:A" & targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row).ClearContents
    
    lastRow = 2 ' 起始写入行
    
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过概览表本身，避免重复
        If ws.Name <> targetWs.Name Then
            Set sumRange = ws.Range("A1:A3")
            ' 判断指定区域数值总和是否大于0，可根据需求修改判断逻辑
            If Application.WorksheetFunction.Sum(sumRange) > 0 Then
                targetWs.Cells(lastRow, "A").Value = ws.Name
                lastRow = lastRow + 1
            End If
        End If
    Next ws
    
    MsgBox "提取完成！"
End Sub

4. 返回Excel，在「开发工具」选项卡中插入按钮，关联上述宏，点击按钮即可生成结果。

自定义调整： #

• 若需判断指定区域是否存在非空单元格，可将Sum(sumRange)>0替换为Application.WorksheetFunction.CountA(sumRange)>0
• 可修改targetWs.Cells(lastRow, "A")中的列标，调整结果写入的位置

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