删除excel中所有公式并保留数值

删除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.