VBA模板生成工作表后CELL函数无法自动更新问题求助

问题核心 #

通过VBA复制模板生成新工作表后，模板中依赖CELL("filename")获取工作表名称的公式无法自动更新，调用ActiveWorkbook.RefreshAll无效，但手动按F9刷新可以正常更新。

原因分析 #

RefreshAll方法仅用于刷新外部数据连接、数据透视表、查询表这类对象，不会触发工作表公式的重计算。而CELL("filename")属于易失性函数，需要触发工作表的计算逻辑才能更新值。

解决方案 #

方法1：生成新表后立即强制计算该工作表 #

在复制模板并重命名后，直接对新工作表执行计算操作，这是最直接高效的方式：

修改AddSheets过程中的代码，在重命名工作表后添加ActiveSheet.Calculate：

Else
    countOfEmpty = 0
    ActiveWorkbook.Worksheets("Template").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = rngCell.Value
    ' 新增：强制计算新工作表，触发CELL公式更新
    ActiveSheet.Calculate
End If

方法2：直接赋值工作表名称（替代公式） #

如果不需要保留公式逻辑，可以直接将工作表名写入目标单元格，彻底避免易失性函数的问题：
假设模板中公式在A1单元格，修改代码如下：

Else
    countOfEmpty = 0
    ActiveWorkbook.Worksheets("Template").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = rngCell.Value
    ' 直接赋值工作表名称到目标单元格（示例为A1，根据实际修改）
    ActiveSheet.Range("A1").Value = ActiveSheet.Name
End If

方法3：全局强制重算所有工作表 #

如果需要一次性更新所有工作表的公式，可以在生成完所有工作表后执行全局计算：
在AddSheets过程末尾添加：

' 全局重算所有公式
ThisWorkbook.Calculate
' 或者更彻底的全量计算
' Application.CalculateFull

为什么原Workbook_RefreshAll无效？ #

ActiveWorkbook.RefreshAll的官方作用是刷新工作簿中的所有数据连接，和公式计算完全是两个不同的操作，因此无法触发CELL公式的更新。

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