將工作表複製到新創建的工作簿並刪除公式

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