VBA脚本转换公式值复制到另一个工作簿时

我目前正在尝试写一个VB脚本的第一次，我努力与这种新的语言。 我需要复制多个工作表到一个新的工作簿，并通过计算值replace公式。

我成功地在一个新的工作簿中复制2工作表，但我不明白如何使用我自己的子方法将公式转换为值。

这是迄今为止的代码：

Sub myMacro() Dim wb As Workbook Set wb = Workbooks.Add ThisWorkbook.Sheets("SHEET_1").Copy Before:=wb.Sheets(1) ThisWorkbook.Sheets("SHEET_2").Copy Before:=wb.Sheets(1) wb.SaveAs "newWB.xlsx" End Sub 

我现在需要的是，在复制过程中，用公式转换值。 谢谢

Answer 1

继续我的评论，试试这个：

 Sub myMacro() Dim wb As Workbook Set wb = Workbooks.Add ThisWorkbook.Sheets("SHEET_1").Copy Before:=wb.Sheets(1) ThisWorkbook.Sheets("SHEET_2").Copy Before:=wb.Sheets(1) wb.Sheets("SHEET_1").Range("A1:Z1000").Value = wb.Sheets("SHEET_1").Range("A1:Z1000").Value wb.Sheets("SHEET_2").Range("A1:Z1000").Value = wb.Sheets("SHEET_2").Range("A1:Z1000").Value wb.SaveAs "newWB.xlsx" End Sub 

上面的代码将新工作表的公式更改为范围A1：Z1000（在新的目标工作簿中）中的值。