Excel复制公式到文本编辑器结果不稳定，如何排查解决？

问题排查范围缩小步骤 #

• 检查单元格保护设置：部分单元格如果开启了隐藏公式保护，即使开启「显示公式」模式，复制时也会默认输出计算值。操作路径：右键选中单元格>设置单元格格式>保护，取消「隐藏」选项的勾选后重试。
• 校验剪贴板同步时机：开启「显示公式」后不要立刻框选复制，等待1-2秒再操作，Office 365的界面渲染和剪贴板数据同步偶尔存在延迟，会导致界面已显示公式、但剪贴板内还是旧的计算值缓存。
• 确认工作表计算模式：如果工作表设置为手动计算模式，切换「显示公式」状态后未触发重算，也会出现剪贴板数据未更新的问题，可按F9手动触发全表重算后再复制。
• 核对Office版本：2022年下半年的部分Office 365预览通道版本存在「显示公式」模式下的剪贴板同步bug，可进入文件>账户>更新选项，确认已安装最新正式版更新后重试。

稳定复制公式的替代方案 #

如果排查后仍无法定位问题，可使用以下方法完全规避该异常：

• 函数中转：在空白列输入=FORMULATEXT(目标单元格)，下拉后可批量获取所有公式的文本值，直接复制该列粘贴到文本编辑器即可，输出结果100%为公式内容。
• 查找替换中转：按Ctrl+H调出查找替换面板，查找内容输入=，替换为输入'=，全部替换后所有公式会转为文本格式，复制粘贴到文本编辑器后，再批量删除开头的单引号即可恢复正常公式。
• VBA批量导出：需要高频批量导出公式时，可运行以下宏代码，直接将选中区域的公式输出到本地文本文件：

Sub 批量导出公式到文本文件()
    Dim selectRng As Range, cell As Range
    Open "C:\Excel公式导出结果.txt" For Output As #1
    For Each cell In Selection
        Print #1, cell.Formula
    Next
    Close #1
End Sub

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