[Excel]5招教你将公式快速转换成数值

有过惨痛的教训之后，你会发现在提交一个Excel报告前，一定要记得将其中的公式转换成数值。这是因为：

1. 如果你提交的报告并不含外部数据源，那静态数据比公式安全得多；

2. 有些函数非常容易出错，当其他使用者改动了你的工作表，很有可能出现各种状况；

3. 避免其他使用者改动计算过程；

4. 避免复杂的公式让其他使用者不知所措

那如何快速从公式转换成数值呢？

01

快捷键法

当说到最迅速最简单的操作，非快捷键莫属了。

你需要做的就是：

• 选中需要转换的单元格

• Ctrl + C 复制

• 按分别按下Alt + E, +S, +V

02

使用选择性粘贴

如果你真的很难记住快捷键，那火箭君会推荐你使用选择性粘贴工具。

复制完，需要转换的单元格。点击 开始 - > 粘贴 下拉箭头 -> 值

当然你可以可以操作右键菜单来实现选择性粘贴。

03

右键拖拽菜单

火箭君在历史文章中曾经介绍过此方法：[Excel]右键填充和移动，你有曾听说吗？

具体说来：

• 选中需要转换的内容，右键拖拽至右侧，不松开右键再拖拽回来

• 在弹出的菜单中选择，“仅复制数值”

04

使用Power Query

可能会有一种情况是，你既想保留在每一个单元格里的公式，但又想将它们以静态数值的形式展现给别人以防止犯不必要的错误。这时候你可以考虑使用Power Query。

• 选中表格，并在数据工具栏中，选择 从表格
  

• 这将引导你打开Power Query编辑器。接着就按你的要求做一些设置。

• 设置无误后，点击 关闭并上载

• 这样你的公式就转换为了数值

使用Power Query的好处是，如果你对原本的公式计算进行了修改，也无须再次进行重复的复制黏贴工作。

05

使用VBA

说到任何奇淫技巧，怎么能忘记万能的VBA呢？

如果你愿意，也可以使用一些简单的VBA命令，将公式变为数值。比如这样：

Sub ConvertToValues()

Dim MyRange As Range

Dim MyCell As Range

Select Case MsgBox("你无法撤销此操作。 " & "是否需要保存工作表？", vbYesNoCancel, "警告")

Case Is = vbYes

ThisWorkbook.Save

Case Is = vbCancel

Exit Sub

End Select

Set MyRange = Selection

For Each MyCell In MyRange

If MyCell.HasFormula Then

MyCell.Formula = MyCell.Value

End If

Next MyCell

End Sub