excel去掉公式()

在需要去掉公式的工作表，ALT+F11，打开VBE编辑器，插入模块，复制下面代码去掉公式保留值内容，按F5键运行，去掉公式保留内容

Sub excel去掉公式()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.UsedRange = sh.UsedRange.Value
    Next
End Sub