用VBA去除当前工作表的公式和去除整个工作薄的公式

我做了一个工作簿模板，里面含有大量公式，每次使用时只是填写相应的数据，通过公式计算出各种结果； 现在希望进行存档时能够保留数据/格式，不需要保留公式。请问除了选择性粘贴，还有更简单的方法么？

下面是通过VBA去掉当前工作表的公式（代码都要写在模块中）：

1. Sub 只去除本工作表公式()
   
2. 
   
3. With ActiveSheet
   
4. .UsedRange.Formula = .UsedRange.Value
   
5. End With
   
6. End Sub

复制代码

下面是去掉整个工作薄的公式VBA代码（代码都要写在模块中）

1. Sub 去除工作薄公式()
   
2. 
   
3. Dim s As Worksheet
   
4.    For Each s In ThisWorkbook.Sheets
   
5.       s.UsedRange.Formula = s.UsedRange.Value
   
6.    Next
   
7. 
   
8. End Sub

复制代码