如何基于下拉列表从多工作表中按行提取数据？

我正在处理一个包含多个工作表的工作簿，其中部分列为Y/N选项。我希望通过Y/N下拉列表提取其他工作表的整行数据，以便汇总哪些报告存在特定硬编码内容，无需逐个工作表筛选。尝试过多种INDIRECT公式变体，但无法从多工作表中提取完整的行数据。

现有数据表示例 #

Report A数据表 #

Report B数据表 #

方法1：Power Query（推荐） #

这是最稳定高效的跨表汇总方式，步骤如下：

1. 新建空白工作表作为汇总表
2. 点击「数据」选项卡 → 获取数据 → 自文件 → 自工作簿，选择当前工作簿
3. 在导航器中按住Ctrl选中所有需要汇总的工作表，点击「转换数据」
4. 在Power Query编辑器中，点击「追加查询」合并所有工作表数据
5. 关闭并上载数据到汇总工作表
6. 选中目标Y/N列，点击「数据」→「筛选器」，通过下拉选择Y/N即可快速查看符合条件的整行数据

方法2：Excel 365动态数组公式 #

如果用的是Excel 365，可通过动态数组公式直接跨表提取符合条件的行（以筛选「年份硬编码：Y/N」为Y为例）：
在汇总表A2单元格输入公式：

=LET(
    sheets, {"Report A","Report B"},
    data, REDUCE("", sheets, LAMBDA(a,s, VSTACK(a, INDIRECT("'"&s&"'!A2:E"&COUNTA(INDIRECT("'"&s&"'!A:A")))))),
    FILTER(data, INDEX(data, ,3)="Y")
)

• 公式会自动溢出所有符合条件的行，无需手动下拉
• 修改sheets数组可添加更多工作表；把INDEX(data,,3)改成INDEX(data,,4)即可切换为筛选「类型硬编码：Y/N?」列

方法3：VBA宏（自动化场景） #

如果需要一键批量汇总，可编写简单宏：

1. 按Alt+F11打开VBA编辑器，插入模块，粘贴代码：

Sub FilterYNReports()
    Dim wsSummary As Worksheet
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filterCol As Integer
    Dim filterValue As String
    
    ' 创建/调用汇总表
    On Error Resume Next
    Set wsSummary = ThisWorkbook.Worksheets("汇总表")
    On Error GoTo 0
    If wsSummary Is Nothing Then
        Set wsSummary = ThisWorkbook.Worksheets.Add
        wsSummary.Name = "汇总表"
    End If
    wsSummary.Cells.Clear
    
    ' 读取筛选条件（假设汇总表I1为Y/N下拉框）
    filterValue = wsSummary.Range("I1").Value
    filterCol = 3 ' 3=年份硬编码，4=类型硬编码，按需修改
    
    ' 复制表头
    ThisWorkbook.Worksheets("Report A").Range("A1:E1").Copy wsSummary.Range("A1")
    
    ' 遍历工作表并筛选复制
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "汇总表" Then
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            ws.Range("A2:E" & lastRow).AutoFilter Field:=filterCol, Criteria1:=filterValue
            ws.Range("A2:E" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
                wsSummary.Cells(wsSummary.Rows.Count, "A").End(xlUp).Offset(1, 0)
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

2. 在汇总表I1单元格添加Y/N下拉列表，运行宏即可自动汇总符合条件的行

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