Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
复制值,不复制公式。excelvba_Excel_Vba_Copy_Formulas - Fatal编程技术网

复制值,不复制公式。excelvba

复制值,不复制公式。excelvba,excel,vba,copy,formulas,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) 任何想法。 谢谢谢谢,它工作得很好。如

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

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

    Set W1 = Workbooks("REPORT1.xlsx")
    Set W2 = Workbooks("REPORT2.xlsx")
    W1.Sheets("TEST").Copy After:=W2.Sheets(wb.Sheets.Count)
任何想法。
谢谢

谢谢,它工作得很好。如果我可以在没有任何参考的情况下,将一些图形复制到一张新的图纸上,那么我可以将其用于图形吗?就我所知,图像是在没有任何参考的情况下复制的。我不经常在excel中处理图像,所以我不确定,但我怀疑上面的代码是否适用。它仍将复制公式,但随后将单元格的值设置为公式结果。
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