excel中批量删除公式，保留数值

excel中批量删除公式，保留数值##

Sub macro1()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.UsedRange = sh.UsedRange.Value
    Next
End Sub

ALT+F11进入VBE编辑界面,菜单-->工具-->添加模块,复制粘贴9楼代码,ALT+F11返回工作表,ALT+F8执行宏macro1.