通过按下宏按钮将行从一个工作表复制并插入另一个工作表

Question

我有这个工作簿:我需要一个宏按钮,我的用户可以单击"点击这里复制",然后我需要一个代码复制第5-25行的标题为"TC-Star Here"的代码,我需要插入复制的行(我需要粘贴的行不自动删除之前的行,因此插入的行必须将前面的行向下移动)到另一个名为"时间卡"的表中.插入的行,我需要从单元格A1开始代码插入它们.因此,每次单击宏按钮时,都会复制行,并插入前一个未修改/删除的数据.

到目前为止我有这个代码:

Sub CopyInfo()
On Error GoTo Err_Execute
    Sheet2.Range("A1:F11").Value = Sheet1.Range("A1:F11").Value
    Sheet1.Range("A1:F11").Copy
    Sheet2.Range("A1").InsertCopiedCells
Err_Execute:
    MsgBox "All have been copied!"

End Sub

但每次单击该按钮时,它会将行粘贴到现有行上.

请帮忙.

Answer 1

这是你在尝试什么？

Sub CopyInfo()
    On Error GoTo Err_Execute

    Sheet1.Range("A1:F11").Copy
    Sheet2.Range("A1").Rows("1:1").Insert Shift:=xlDown

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description
End Sub