Я хочу добавить данные с других листов, не копируя заголовок снова и снова

Question

Я хочу добавить данные с других листов, не копируя заголовок снова и снова.

Этот код копирует данные с разных листов и сопоставляет их на одном листе.Но он включает заголовок каждый раз, когда я объединяю данные с предыдущими данными.Я хочу добавить данные с других листов, не копируя заголовок.

sub collate_data()
    thisworkbook.sheets.add after:=sheets("Orders")
    Activesheet.name = "finalsheet"
    c = sheets("Control2nd").range("A100").End(Xlup).row

    for i = 1 to c
        a = sheets("Finalsheet").range("A10000").End(xlup).Row
        b = sheets("Control2nd").range("A" & i).value
        Thisworkbook.sheets(b).Range("A1:W90").Copy
        Thisworkbook.sheets("FinalSheet").Range("A" & a).select
        activesheet.Paste
    Next
End Sub

Ожидаемый результат, если заголовок должен быть вставлен только один раз, а данные других листов должны быть вставлены без заголовка.

Answer 1

Трудно понять, что именно вы хотите, но я попробовал.Это может работать:

Sub collate_data()
    Dim c As Integer
    Dim i As Integer
    Dim a As Integer
    Dim b As Variant

    ThisWorkbook.Sheets.Add after:=Sheets("Orders")
    ActiveSheet.Name = "finalsheet"
    c = Sheets("Control2nd").Range("A100").End(xlUp).Row

    For i = 1 To c
        a = Sheets("Finalsheet").Range("A10000").End(xlUp).Row
        b = Sheets("Control2nd").Range("A" & i).Value
        If i = 1 Then
            ThisWorkbook.Sheets(b).Range("A1:W90").Copy
        Else
            ThisWorkbook.Sheets(b).Range("A2:W90").Copy
        End If
        ThisWorkbook.Sheets("FinalSheet").Range("A" & a).Select
        ActiveSheet.Paste
    Next
End Sub