将工作表复制到新创建的工作簿并删除公式

Question

我有一个工作簿用于报告。每个条目都是一个查找。我将这张工作簿中的4张表格复制到一个新的工作簿中，作为一个“outfile”，用于保存数字但删除公式。我有一个成功的宏将4张工作表复制到一个新创建的工作簿中，但它保持工作表原样并不删除公式。我试图添加删除公式的代码，虽然有几个在线来源用于删除公式，但我无法将它们调整到我的宏。

继承人是我到目前为止有：（第2行工作，但添加第三没有）

Sub outfile() 
ThisWorkbook.Sheets(Array("Sheet 4","Sheet 5","Sheet 6","Sheet 7")).Copy 
ActiveWorkbook.SaveAs "C:\example\outfile", FileFormat:=51 
Workbook("outfile").Sheets(Array("Sheet 4","Sheet 5","Sheet 6","Sheet 7")).UsedRange.Value = Workbook("outfile").Sheets(Array("Sheet 4","Sheet 5","Sheet 6","Sheet 7")).UsedRange.Value 
END SUB 

Answer 1

有可能是一个聪明的方式，但你可以循环

Sub outfile() 

Dim ws As Worksheet 

ThisWorkbook.Sheets(Array("Sheet 4", "Sheet 5", "Sheet 6", "Sheet 7")).Copy 

For Each ws In ActiveWorkbook.worksheets 
    ws.UsedRange.Value = ws.UsedRange.Value 
Next ws 

ActiveWorkbook.SaveAs "C:\example\outfile", FileFormat:=51 

End Sub