无需硬编码，如何从按年份命名的多工作表批量提取数据？

不用脚本的公式方案 #

直接用INDIRECT函数就能实现动态引用，这是最简便的方法，无需编写代码。

假设汇总表A列是年份（比如A2为2023、A3为2022……），要引用对应年份工作表的H2单元格，公式写成：

=INDIRECT("'"&A2&"'!H2")

• 原理："'"&A2&"'!H2"会把A2的年份拼接成标准的工作表引用格式（例如'2023'!H2），INDIRECT函数会将这个文本字符串转换为实际的单元格引用。
• 拖拽公式时，A2会自动变为A3、A4，对应不同年份的工作表，完全满足批量引用需求。
• 补充：如果工作表名是纯数字（如你的年份），可以省略单引号，写成=INDIRECT(A2&"!H2")，但保留单引号能兼容后续可能出现的带空格/特殊字符的工作表名，更稳妥。

若使用Excel 365或2021版本，还能通过动态数组一次性生成所有结果，无需手动拖拽：

=INDIRECT("'"&A2:A71&"'!H2")

输入后公式会自动溢出填充到A2对应的所有行。

脚本方案（适合大量数据或高性能需求） #

如果数据量较大，INDIRECT作为易失性函数可能导致文件卡顿，或者需要更复杂的批量操作，可以用VBA脚本实现：

方法1：自定义函数 #

打开VBA编辑器（按Alt+F11），插入模块，粘贴以下代码：

Function GetYearData(yearCell As Range, targetAddr As String) As Variant
    Dim wsName As String
    wsName = yearCell.Value
    ' 处理工作表不存在的异常情况
    On Error Resume Next
    GetYearData = ThisWorkbook.Worksheets(wsName).Range(targetAddr).Value
    On Error GoTo 0
End Function

回到汇总表，在目标单元格输入：

=GetYearData(A2,"H2")

拖拽即可完成批量引用，这个函数是非易失性的，性能比INDIRECT更优。

方法2：批量导入宏 #

如果不想依赖公式，直接一次性导入所有年份的数据，同样在VBA编辑器插入模块，粘贴代码：

Sub BatchImportYearData()
    Dim wsSummary As Worksheet
    Dim wsYear As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换为你的汇总表名称
    Set wsSummary = ThisWorkbook.Worksheets("汇总表")
    ' 获取A列最后一行的行号
    lastRow = wsSummary.Cells(wsSummary.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow
        On Error Resume Next
        Set wsYear = ThisWorkbook.Worksheets(wsSummary.Cells(i, "A").Value)
        If Not wsYear Is Nothing Then
            ' 将对应工作表的H2值写入汇总表H列
            wsSummary.Cells(i, "H").Value = wsYear.Cells(2, "H").Value
        Else
            ' 工作表不存在时显示提示
            wsSummary.Cells(i, "H").Value = "无对应工作表"
        End If
        On Error GoTo 0
    Next i
End Sub

运行这个宏（按F5）即可自动填充所有数据，后续更新年份后重新运行宏即可同步数据。

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