Как автоматически начать вставку всех данных после строк заголовка в sheet2 - PullRequest
0 голосов
/ 08 апреля 2019

Предположим, я скопировал строки данных из листа 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...