excel去掉公式()

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

1 Sub excel去掉公式()
2     Dim sh As Worksheet
3     For Each sh In Sheets
4         sh.UsedRange = sh.UsedRange.Value
5     Next
6 End Sub