复制价值,没有公式。 EXCEL VBA

时间:2013-02-20 13:54:26

标签: excel vba copy formulas

我正在编写代码以将工作表从一个工作簿(W1)复制到另一个工作簿(W2)。 我知道怎么做,但问题是W2中的复制表仍然有来自W1的公式和引用,我不希望我只是想要这些值。

这是我复制工作表的代码:

    Set W1 = Workbooks("REPORT1.xlsx")
    Set W2 = Workbooks("REPORT2.xlsx")
    W1.Sheets("TEST").Copy After:=W2.Sheets(wb.Sheets.Count)

任何想法。 感谢

1 个答案:

答案 0 :(得分:1)

Set W1 = Workbooks("REPORT1.xlsx")
Set W2 = Workbooks("REPORT2.xlsx")
W1.Sheets("TEST").Copy After:=W2.Sheets(wb.Sheets.Count)
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value