Excel宏插入CELL公式后跨工作表计算结果异常求助

CELL("filename")函数的返回值依赖于最后被激活/编辑的工作表，而非公式所在的工作表。你的宏在循环处理Sheet2、Sheet3时，没有切换到对应工作表，所有公式都引用了初始活动工作表（Sheet1）的文件名，导致结果异常。手动触发计算时，当前活动工作表是Sheet2，所以所有公式又同步显示Sheet2的名称。

提供两种可行方案，按需选择：

方案1：激活目标工作表后插入公式 #

在循环中先激活当前处理的工作表，让CELL函数获取正确的文件名，同时关闭屏幕刷新避免闪屏：

Sub FormulaInsert()
    Dim i As Long
    Dim lastrow As Long
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提升效率
    
    For i = 3 To Worksheets.Count
        Set ws = Sheets(i)
        ws.Activate ' 激活当前工作表，让CELL函数获取正确文件名
        
        lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
        ws.Range("A2:A" & lastrow).Formula = "=MID(CELL(""filename""), FIND(""]"",CELL(""filename""))+1, 1500)"
    Next i
    
    Application.ScreenUpdating = True ' 恢复屏幕刷新
End Sub

方案2：直接写入工作表名称（推荐） #

跳过公式，用VBA直接将工作表名称写入单元格，避免CELL函数的依赖问题，效率更高：

Sub NameInsert()
    Dim i As Long
    Dim lastrow As Long
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    
    For i = 3 To Worksheets.Count
        Set ws = Sheets(i)
        lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
        
        ' 直接写入工作表名称，而非公式
        ws.Range("A2:A" & lastrow).Value = ws.Name
    Next i
    
    Application.ScreenUpdating = True
End Sub

• 方案1保留了公式形式，适合需要动态更新名称的场景（比如工作表重命名后自动更新），但依赖工作表激活操作。
• 方案2直接写入静态值，性能更好，适合名称固定的场景，彻底避免CELL函数的计算异常问题。

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