将总和从一个Excel文件复制到另一个Excel文件

将总和从一个Excel文件复制到另一个Excel文件,excel,vba,Excel,Vba,我有一个文件(第1册),里面有一列数字和一个公式来总结它们。我需要将第1册中的总和复制到第2册、第3册等中的一个单元格中。我最终复制公式并移动它,而不是总和本身 Sub CopyInfo() experiment1.Range("F7").Value = experiment2.Range("I5").Value experiment1.Range("F7").Copy experiment2.Range("I5").Paste Application.CutCo

我有一个文件(第1册),里面有一列数字和一个公式来总结它们。我需要将第1册中的总和复制到第2册、第3册等中的一个单元格中。我最终复制公式并移动它,而不是总和本身

Sub CopyInfo()
    experiment1.Range("F7").Value = experiment2.Range("I5").Value
    experiment1.Range("F7").Copy
    experiment2.Range("I5").Paste
    Application.CutCopyMode = False
End Sub

我正在尝试从“实验1”复制到“实验2”。

使用PasteSpecial,而不是粘贴,如下所示:

experiment2.Range("I5").PasteSpecial xlPasteValues

这将粘贴计算值而不是公式。

执行过去的特殊操作,这样您就可以:

dim wkb1 as workbook, wkb2 as workbook
Dim r1 as range, r2 as range

set wkb1=workbooks("wkb1")
set wkb2=workbooks("wkb2")
set r1=wkb1.worksheets("whatever").range("A1")
set r2=wkb2.worksheets("whatever2").range("A1")
r1.copy
r2.PasteSpecial xlPasteValues

你能发布你的实际代码吗?@Jilian:这段代码似乎是从expt2:I5复制值,然后再粘贴回来。这是有意的吗?通常,除非需要,否则不应该复制/粘贴:在这里,您可以直接为expt1.Range(“I5”)赋值。Value=expt2.Range(“F7”)。Value非常感谢。我知道我遗漏了一些琐碎的东西确保你对你喜欢的答案给予+1,并将你认为最适合回答你问题的人标记为已回答。我们喜欢我们的观点:)可悲的是,我还没有足够的声誉去投票。但我确实认为这很有帮助。:)