将范围复制到活动单元格范围

Question

我有一个代码，在用户的活动单元格上方插入12行。我试图让代码从另一个工作表复制特定范围并将其粘贴到新创建的行中。我一直得到424的运行时错误。我该如何解决这个问题？

代码如下

With ActiveSheet

    For i = 1 To 12
        ActiveCell.Rows.EntireRow.Insert Shift:=xlDown
    Next i

    Sheets("The Hidden Works").Range("A2:U13").Copy.Range.ActiveCell
End With

Answer 1

我会先设置您想要复制到变量的范围，然后根据您的选择执行该过程。这可以帮助您在路上进行调试（并确保使用正确的对象）。

试试这个

Option Explicit

Sub Test()

    Dim rngToCopy As Range
    Set rngToCopy = ThisWorkbook.Worksheets("The Hidden Works").Range("A2:U13")

    rngToCopy.Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False

End Sub