Копирование диапазона между листами и пропуск заголовка

Question

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

Worksheets("sheet1").Range("A2:A").Copy Worksheets("sheet2").Range("F2:F")

работать?Две таблицы также всегда будут иметь одинаковое количество строк.Вышеприведенное продолжает приводить к ошибке, определяемой приложением / объектом.

Answer 1

Или

With Worksheets("sheet1")
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Worksheets("sheet2").Range("F2:F" & lastRow) = .Range("A2:A" & lastRow)
End With

Answer 2

используйте это

With Worksheets("sheet1") 'reference "sheet1" worksheet
    .range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Copy Worksheets("sheet2").range("F2") ' copy referenced worksheet column A range from row 2 down to last not empty one and paste it to "sheet2" worksheet starting from its cell "F2"
End With