在需要去掉公式的工作表，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
kearney908 2017-03-29 12:45 原文
在需要去掉公式的工作表，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