Exce：VB命令将一系列单元格从一张纸复制到另一张纸

Question

我在同一文件中有2张纸（计算器和backupschedule），并且我正在两张纸之间来回传输数据。

我在弄清楚如何将一系列单元格从计算器表转移到另一个表时遇到麻烦。

我当前的VB代码是：

Sheets("Calculator").Range("R3:R15").Copy Destination:=Sheets("BackupSchedule").Range("E8:E20")

但我得到一个#REF！ E8：E20单元格中的备份计划表中的错误。

我想复制R列第3到15行中的单元格（单元格：R3，R4，R5等），然后将它们放在E列第8到20行中（单元格：E8，E9，E10等）

有人可以帮我吗？

Answer 1

之所以得到#Ref是因为您要复制带有引用的公式，这些引用在粘贴到较早的列中时相对于粘贴位置不在工作范围内。

如果我在C4中将=A1的公式复制并粘贴到D5中，则它将变为=B2 。 如果我尝试将副本粘贴到B3中，则该引用不再有效，因为它现在正在尝试引用不在工作表中的单元格。

我怀疑您此时只需要这些值。 有几种方法可以将值放入所需的单元格中。

您可以仅复制和粘贴值：

Sheets("Calculator").Range("R3:R15").Copy
Sheets("BackupSchedule").Range("E8:E20").PasteSpecial xlValues

您可以直接分配值（推荐）

Sheets("BackupSchedule").Range("E8:E20").Value = Sheets("Calculator").Range("R3:R15").Value

或者，您可以将公式放在引用原始公式的范围内：

Sheets("BackupSchedule").Range("E8:E20").Formula = "=Calculator!R3"