excel - 如何在sheet2中的标题行之后自动启动所有数据插入

Question

假设我从工作表 1 复制了数据行，我想将数据插入工作表 2，VBA 是否允许我开始在工作表 2 中粘贴新数据，向下十行？

我的脚本：

Sub AddDataOnSheet2TenRowsDown()

Dim lastRow As Long
Dim Sheet2 As Worksheet
Dim lRow As Long, iRow As Long
Dim ws As Worksheet
Dim rng As Range
Dim r As Long



    Set Results = Sheets("Sheet2")
    lastRow = Results.Cells(Results.Rows.Count, "Z").End(xlUp).Row

    Range("A2:B122,C2:d122").Copy
    Results.Range("A" & lastRow + 10).PasteSpecial xlPasteAll


    Application.DataEntryMode = False


    ActiveWorkbook.Worksheets("Sheet1").PageSetup.CenterFooter = "Page " & 
    ActiveWorkbook.Worksheets("Sheet1").Index & " of " & 
    ActiveWorkbook.Sheets.Count
    ActiveWorkbook.Worksheets("Sheet2").PageSetup.CenterFooter = "Page " & 
    ActiveWorkbook.Worksheets("Sheet2").Index & " of " & 
    ActiveWorkbook.Sheets.Count




End Sub

标签： excelvba