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

Question

我目前正在尝试第一次编写 VB 脚本，但我正在为这种新语言而苦苦挣扎。
我需要将多个工作表复制到一个新工作簿并用计算值替换公式。

我成功地在新工作簿中复制了 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 范围内的值(在新的目标工作簿中)。