从一个Excel文件复制到另一个

我有一个文件（书1）与一列数字和公式总结起来。 我需要从第一册复制第二册，第三册等中的一个单元格。我最终复制公式并移动它，而不是总和本身。

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

我试图从“experiment1”复制到“experiment2”。

Answer 1

使用PasteSpecial代替Paste，如下所示：

 experiment2.Range("I5").PasteSpecial xlPasteValues 

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

Answer 2

做一个特别的，所以你会有：

 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