Excel特殊公式无插件时显示#NAME错误及批量转值需求

嘿，我来帮你解决这两个Excel相关的问题，正好我之前处理过类似的场景：

问题1：能否设置Excel显示文件上次保存时的数值？ #

很遗憾，Excel并没有内置的原生设置能直接实现这个需求。当文件里包含未安装插件的特殊公式时，Excel因为无法识别这些自定义公式的语法，会直接返回#NAME?错误，而不会自动保留上次保存时的计算结果——这是Excel的公式解析机制决定的，它不会缓存未识别公式的历史值。

不过有个变通的思路可以接近你想要的效果：你可以把带有特殊公式的单元格隐藏起来，然后在对应位置用另一个单元格来显示值，同时用VBA在每次保存文件时，自动把公式单元格的计算值同步到这个显示单元格里。这样，当在无插件的设备上打开时，显示的单元格里是保存时的静态值，而公式单元格隐藏起来不会报错。不过这个方法还是需要一点VBA辅助，不是纯设置就能搞定的。

问题2：一键保存纯值副本的VBA代码 #

这个完全可以实现！我给你一段简洁的VBA代码，你可以把它绑定到Excel功能区的自定义按钮上，点击就能一键生成当前工作簿所有工作表的纯值副本：

Sub SaveAsValueOnlyCopy()
    Dim originalWB As Workbook
    Dim newWB As Workbook
    Dim ws As Worksheet
    Dim savePath As String
    
    ' 设置原工作簿
    Set originalWB = ThisWorkbook
    
    ' 创建新工作簿
    Set newWB = Workbooks.Add(xlWBATWorksheet)
    
    ' 复制每个工作表的纯值到新工作簿
    For Each ws In originalWB.Worksheets
        ws.Copy After:=newWB.Sheets(newWB.Sheets.Count)
        ' 转换为纯值
        newWB.Sheets(ws.Name).UsedRange.Value = newWB.Sheets(ws.Name).UsedRange.Value
    Next ws
    
    ' 删除新工作簿默认的空白工作表
    Application.DisplayAlerts = False
    If newWB.Sheets.Count > originalWB.Sheets.Count Then
        newWB.Sheets(1).Delete
    End If
    Application.DisplayAlerts = True
    
    ' 获取原工作簿的保存路径，默认用原文件名加"_纯值副本"
    savePath = Left(originalWB.FullName, InStrRev(originalWB.FullName, ".")) & "纯值副本" & Mid(originalWB.FullName, InStrRev(originalWB.FullName, "."))
    
    ' 保存新工作簿
    newWB.SaveAs Filename:=savePath, FileFormat:=originalWB.FileFormat
    
    ' 提示完成
    MsgBox "纯值副本已保存到：" & vbCrLf & savePath, vbInformation, "操作完成"
    
    ' 释放对象
    Set newWB = Nothing
    Set originalWB = Nothing
End Sub

操作步骤： #

1. 打开你的Excel工作簿，按下Alt + F11打开VBA编辑器；
2. 在左侧的“工程资源管理器”里，右键点击你的工作簿名称，选择「插入」→「模块」；
3. 将上面的代码粘贴到新模块的代码窗口里；
4. 关闭VBA编辑器，回到Excel界面；
5. 点击「文件」→「选项」→「自定义功能区」，在右侧点击「新建组」，给组起个名字比如“一键工具”；
6. 点击「从下列位置选择命令」，选择「宏」，找到刚才的SaveAsValueOnlyCopy宏，添加到新建的组里；
7. 点击「确定」，现在你的功能区就有这个按钮了，点击就能一键生成纯值副本！

这段代码会自动复制原工作簿的所有工作表，把每个工作表的内容转换成纯值，然后以原文件名加“_纯值副本”的名字保存在同一个文件夹里，非常省心。

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