如何根据当前月份自动提取对应月度表TOTAL值到指定汇总工作表

方案1：函数公式实现（无需启用宏，兼容性强） #

前提假设 #

• 所有月度工作表按规范命名，格式统一为「1月」「2月」……「12月」
• 每张月度表中「TOTAL」标识固定在某一列（示例默认在A列），TOTAL对应的汇总值在标识右侧相邻列（示例默认在B列）

实现公式 #

在汇总表需要展示当月TOTAL值的单元格输入以下公式：
=VLOOKUP("TOTAL",INDIRECT(MONTH(TODAY())&"月!A:B"),2,FALSE)

公式说明 #

• MONTH(TODAY())：自动读取系统当前日期对应的数字月份，例如11月返回11
• INDIRECT(MONTH(TODAY())&"月!A:B")：动态引用对应月份工作表的A、B列范围，不受月度表数据行数动态变化的影响
• VLOOKUP("TOTAL",[引用范围],2,FALSE)：在对应月度表的A列精确匹配「TOTAL」标识，返回右侧B列对应的汇总数值

容错优化 #

如果担心对应月份工作表未创建导致报错，可嵌套IFERROR做异常处理：
=IFERROR(VLOOKUP("TOTAL",INDIRECT(MONTH(TODAY())&"月!A:B"),2,FALSE),"未找到对应月度工作表")
如果不需要绑定系统时间，可在汇总表单独设置月份输入单元格（例如C1），将公式中MONTH(TODAY())替换为C1，手动修改C1的月份数值即可自动切换对应取值。

方案2：VBA事件实现（适配自定义规则场景） #

如果工作表命名不规范、或者需要更灵活的触发逻辑，可使用VBA实现，操作步骤如下：

1. 打开汇总表，按Alt+F11调出VBA编辑器
2. 在左侧工程窗口双击汇总表对应的工作表名称，打开代码编辑窗口
3. 粘贴以下代码：

Private Sub Worksheet_Activate()
    ' 获取当前数字月份
    Dim currentMonth As Integer
    currentMonth = Month(Date)
    Dim wsMonth As Worksheet
    ' 遍历所有工作表匹配对应月份的月度表
    For Each wsMonth In ThisWorkbook.Worksheets
        If InStr(wsMonth.Name, currentMonth & "月") > 0 Then
            ' 查找TOTAL标识所在单元格，默认在A列
            Dim totalRng As Range
            Set totalRng = wsMonth.Range("A:A").Find("TOTAL", LookIn:=xlValues, LookAt:=xlWhole)
            If Not totalRng Is Nothing Then
                ' 将TOTAL值写入汇总表A1单元格，可根据需求修改目标单元格位置
                Me.Range("A1").Value = totalRng.Offset(0, 1).Value
            End If
            Exit For
        End If
    Next
End Sub

4. 保存文件为.xlsm格式（启用宏的工作簿），后续每次打开汇总表时，代码会自动运行更新当月TOTAL值。

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