在一张纸上复制静态范围，然后根据单元格中的单个值将动态范围粘贴到另一张纸上

Question

我有这个问题的三个部分。我在 Sheet1!A1 中有一个带有周数的单元格。我在 Sheet1!B1:F1 中有一个需要复制的静态范围。然后我需要将值粘贴到 Sheet2 中的动态范围内，偏移量为行的周数。这是我正在为我经常使用的工作表编写的一个更大的宏的一部分，但我似乎把这些部分写下来了。我可能过于简单化或过于简单化，但这就是我目前所拥有的。

Sub CopyPaste()
    Sheets(1).Range("B1:F1").Copy
    OffsetRange = Sheets(1).Cells(1,1).Value
    Sheets(2).Cells(1+OffsetRange,1).Paste
End Sub

当我运行它时，它给我一个运行时错误 9 或运行时错误 438。

有人知道是什么导致了这些错误吗？当我粘贴范围时，当我粘贴到该位置时，单元格对象是否指向复制范围的第一个单元格？

Answer 1

试试看，

Option Explicit

Sub CopyPasteOffset()
    Dim OffsetRange As Long
    OffsetRange = Worksheets(1).Cells(1, 1).Value
    Worksheets(1).Range("B1:F1").Copy _
        Destination:=Worksheets(2).Cells(1 + OffsetRange, 1)
End Sub

.Paste 方法是 Worksheet 的成员，而不是 Range 或 Cells 的成员。您可能会将它与作为 Range 对象成员的 .PasteSpecial 混淆。无论如何，这是不必要的，因为可以将目标直接应用于复制命令。