工作需要去除表格公式，只保留数值，通常用的“选择性粘贴”比较麻烦，所以写了如下VBA程序（EXCEL宏文件），一键去除工作薄中所有表格内公式，只保留数值，程序代码如下：
Sub 去除公式()
'
' 去除公式 Macro
'
Dim i As Long
Dim x As Long
x = Worksheets.Count
For i = 1 To x
Next
MsgBox '公式去除完毕，只保留数值'
End Sub
Sub 去除公式()
'
' 去除公式 Macro
'
Dim i As Long
Dim x As Long
x = Worksheets.Count
For i = 1 To x
Next
MsgBox '公式去除完毕，只保留数值'
End Sub