Exce：VB命令將單元格範圍從一張紙複製到另一張紙上

Question

我在同一個文件中有兩張紙（計算器& 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，因爲您正在複製帶有引用的公式，當粘貼在較早列中的公式相對於您粘貼它的位置而言不在表格中時。

如果我在=A1的C4中有一個公式，如果我將它複製並粘貼到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"