去除EXCEL表格公式,只保留数值

工作需要去除表格公式，只保留数值，通常用的“选择性粘贴”比较麻烦，所以写了如下VBA程序（EXCEL宏文件），一键去除工作薄中所有表格内公式，只保留数值，程序代码如下：

Sub call1()

Dim i As Long
Dim x As Long
x = Worksheets.Count
For i = 3 To x
Sheets(i).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
MsgBox "公式去除完毕，只保留数值"
End Sub

本文出自 “旅游人生” 博客，谢绝转载！