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