2013-02-20 137 views
0

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

这是我的代码到纸上复印:

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

任何想法。 谢谢

回答

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 
+0

感谢它的工作完美。我可以将它用于图形吗 – themolestones 2013-02-20 14:09:03

+0

你是什么意思? – Ripster 2013-02-20 14:12:06

+0

如果我可以将某些图形复制到新工作表,而没有任何参考,则只需将该值复制。 – themolestones 2013-02-20 14:16:10