在工作中为了防止粘贴过来的公式重算，我们会选择把单元格中的公式转化成值。
以下内容介绍常用的方法
方法一：
一般来说会 先复制数据区域，然后选择区域起始单元格，用「选择性粘贴-值」，来实现
方法二：
（比上一个稍快哦~）
选择要转化成值的公式区域，按右键不松，拖动公式所在区域向右拖动一下再拖回来，会弹出小菜单供你选择，选取仅复制数值，就可以把公式转换成值了。
方法三：
以上两个方法在常规情况下解决这个小问题已经足够了，可但是。。。。。
昨天看同事操作，发现右键拖放的方法在数据筛选状态下是不管用的，但是问题还在啊，于是，万能的VBA来啦！
下面是大致步骤：
1.在工作表的标签上右键单击，在弹出菜单中选择「查看代码」
2.在新窗口中，双击左边的Thiswork ，代表当前工作簿，这样的效果是方便工作簿中任意一个工作表在需要的时候调用代码，（额，配图在下边呢）
3.然后在右边的代码窗口中粘贴以下代码
Sub ConvAfterFilter()
On Error Resume Next
Application.ScreenUpdating = False
Dim Rng As Range
For Each Rng In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If Rng.HasFormula Then
Rng.Copy
Rng.PasteSpecial xlValues
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
4.回到工作表里插入一个形状做调用代码的按钮用
5.在插入的形状上（以矩形为例）右键「指定宏」
6.选择刚才粘进去代码生成的过程名「ConvAfterFilter」，确定
7.适当美化一下，一个小清新的按钮就完成了
最后，用法啊，用法就是你需要把筛选的数据区域中的公式转化成值时，点一下这个按钮就OK了，这样的好处就是一劳永逸啊，而且快速！ 准确！
总结：
该说的都说了，就不总结了。。。。。。
有问题可以随时反馈交流
