去除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