Question

我有一个文件（第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

我正在尝试从“experiment1”复制到“experiment2”。

Answer 1

使用PasteSpecial代替粘贴，使用如下：

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

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

2 个答案: