使用宏将数据从一张纸复制到另一张纸

Question

我有两张纸“ ABC”和“ XYZ” 我想从工作表“ ABC” D28：AZ28（当前为= Sum公式）中获取数据，并将其放在工作表“ XYZ”的底部行（第二列）中。我还希望该行的第一列是工作表“ ABC”中单元格“ A1”中的日期

我还没有弄清楚日期部分，每次尝试使用宏时都会收到错误消息（似乎是它试图更改总和公式）。

Sub Copy_Method()
    Sheets("ABC").Range("D28:AZ28").Copy Destination:=Sheets("XYZ").Range("B2")
End Sub

我在“ XYZ”工作表的单元格中遇到的错误是；

#REF!  [=Sum(#REF)]

感谢帮助。

Answer 1

您的代码正在复制带有相对单元格引用的公式。换句话说，“ SUM”公式试图对第1行上方的单元格求和，这会导致#REF错误。

您没有确切指定要复制的内容。如果只需要值（而不是公式），则可以仅粘贴值：

Sub Copy_Method()
    Sheets("ABC").Range("D28:AZ28").Copy
    Sheets("XYZ").Range("B2").PasteSpecial Paste:=xlPasteValues
End Sub