如何通过Excel函数在各工作表A1动态获取自身表名？保存异常求解

阿华AIGC实验室

2026-5-20

解决Excel中动态获取工作表名称的问题

你遇到的这个问题太典型了！根源在于你用的CELL("filename")这类函数是易失性函数，它的计算结果依赖于当前激活的工作表——保存文件时Excel会重新计算所有公式，这时候哪个表处于激活状态，所有公式就都会返回这个表的名称，完全跑偏了。

下面给你几个靠谱的解决方案，从简单到进阶都有：

方案一：自定义VBA函数（最稳定可靠）

这个方法能直接返回公式所在工作表的名称，完全不受激活状态影响，步骤也不难：

按下Alt + F11打开VBA编辑器
右键点击左侧的工作簿名称 → 插入 → 模块
在弹出的代码窗口里粘贴这段代码：

Function GetSheetName() As String
    ' 返回公式所在单元格的工作表名称
    GetSheetName = Application.Caller.Parent.Name
End Function

回到Excel，在任意工作表的A1单元格输入=GetSheetName()，回车就行
这个函数会自动识别公式所在的工作表，不管你切换到哪个表、怎么保存，每个A1都会显示自己的表名，绝对不会串。

方案二：用定义名称+公式（无需VBA）

如果不想用VBA，也可以通过定义名称来绕开易失性的问题：

点击公式选项卡 → 定义名称
在弹出的窗口里：
- 名称：填CurrentSheetName（随便起，好记就行）
- 引用位置：粘贴这个公式：
```
=REPLACE(CELL("filename",!A1),1,FIND("]",CELL("filename",!A1)),"")
```
这里的!A1是关键，它会强制引用当前工作表的A1单元格，而不是激活表的
确定后，在每个工作表的A1输入=CurrentSheetName就可以了
注意：如果你的Excel没开启迭代计算，可能会弹出循环引用提示，这时候去文件→选项→公式，勾选“启用迭代计算”，最多迭代次数设为1就行，不会有问题。

方案三：Power Query批量写入静态名称（适合表名不常变的场景）

如果你的工作表名称很少改动，用Power Query一次性给所有表的A1写入名称更高效：

点击数据选项卡 → 获取数据 → 自文件 → 自工作簿
选择当前工作簿，在导航器里勾选所有工作表，点击“转换数据”

在Power Query编辑器中，新建一个空白查询，输入这段M代码：

let
    Source = Excel.CurrentWorkbook(),
    AddSheetName = Table.AddColumn(Source, "SheetName", each [Name]),
    UpdateA1 = Table.TransformColumns(AddSheetName, {"Content", (table) => Table.ReplaceValue(table, null, [SheetName], Replacer.ReplaceValue, {"Column1"})})
in
    UpdateA1