删除excel中所有公式并保留数值 Sub macro1() Dim sh As Worksheet For Each sh In Sheets sh.UsedRange = sh.UsedRange.Value Next End Sub (Fn)ALT+F11进入VBE编辑界面,菜单–>工具–>添加模块,复制粘贴上面代码,(Fn)ALT+F11返回工作表,(Fn)ALT+F8执行宏macro1.