嘿，太懂这种尴尬了！每次想复制公式结果却只拿到计算值，给你几个亲测好用的办法，轻松把Excel里的公式扒出来粘去Notepad++这类文本编辑器：

这是最省心的基础操作：

• 打开你的Excel文件，按下快捷键 Ctrl + （就是键盘左上角和~同键的反引号），瞬间所有单元格都会显示公式本身，而不是计算后的数值
• 选中你需要的那些单元格，按 Ctrl + C 复制
• 直接粘贴到Notepad++里就搞定了！记得用完再按一次 Ctrl + ，把Excel切回显示值的模式，不然看着全是公式有点晃眼

如果表格里混着值和公式，只想挑公式单元格的话，用这个方法效率更高：

• 先选中目标数据区域（或者直接按 Ctrl + A 全选整个工作表）
• 点击顶部菜单栏的「开始」→「查找和选择」→「定位条件」（Excel 365的话，在「编辑」组里找这个选项）
• 在弹出的窗口里勾选「公式」，还可以根据需要选下面的数字、文本等细分类型，点击确定
• 这时候所有带公式的单元格都会被自动选中，直接复制粘贴到Notepad++就好

如果要导出的公式特别多，手动选太费时间，写个简单的VBA脚本就能一键搞定：

• 按下 Alt + F11 打开VBA编辑器
• 右键点击左侧的工作簿名称，选择「插入」→「模块」
• 把下面这段代码粘贴进去：

Sub ExportFormulasToText()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim outputText As String
    Dim filePath As String
    
    Set ws = ActiveSheet ' 可以改成具体工作表名，比如Sheets("销售数据")
    Set rng = ws.UsedRange ' 选中工作表所有有内容的区域
    
    For Each cell In rng
        If cell.HasFormula Then
            outputText = outputText & cell.Address & ": " & cell.Formula & vbCrLf
        End If
    Next cell
    
    ' 弹出保存对话框，选择要保存的文本文件路径
    filePath = Application.GetSaveAsFilename(FileFilter:="Text Files (*.txt), *.txt")
    If filePath <> "False" Then
        Open filePath For Output As #1
        Print #1, outputText
        Close #1
        MsgBox "公式已经导出到你选的文本文件啦！"
    End If
End Sub

• 按下F5运行这个宏，跟着提示选好保存位置，导出的txt文件直接用Notepad++打开就能看到所有公式了

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