在工作表之间复制范围并跳过标题

Question

为了速度，我想跳过逐个单元格复制 - 如果我想复制除第一行以外的整个范围，我怎么能做这样的东西：

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

工作？两个工作表也将始终具有相同的行数。上述情况不断导致应用程序定义/对象定义的错误。

Answer 1

使用这个

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

Answer 2

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