Question

我有一份报告工作簿。每个条目都是一个vlookup。我将此工作簿中的4张表复制到一个新的工作簿中作为“outfile”保存数字但删除公式。我有一个成功的宏，将4张纸复制到新创建的工作簿中，但它保持纸张不变，并且不删除公式。我试图添加删除公式的代码，虽然有几个在线源删除公式，我无法使它们适应我的宏。

到目前为止我所拥有的内容:(前2行有效，但添加第3行则没有）

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

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

1 个答案: