跨工作表复制单元格区域并跳过表头的实现方法

哈哈，这个问题我之前也踩过坑！你写的Range("A2:A")是Excel VBA不认可的区域引用格式，这就是导致"应用程序定义/对象定义错误"的直接原因——Excel没法识别这种只写起始列、不写结束行的模糊引用。

既然你提到两个工作表的行数始终一致，那可以用下面几种可靠的方法来实现需求：

方法一：动态获取最后一行行号（最常用） #

先获取Sheet1中A列最后一个有数据的行号，再精准复制对应区域：

Sub CopyData()
    Dim lastRow As Long
    ' 定位Sheet1中A列最后一个非空单元格的行号
    lastRow = Worksheets("sheet1").Cells(Worksheets("sheet1").Rows.Count, "A").End(xlUp).Row
    
    ' 复制Sheet1的A2到A[lastRow]区域，粘贴到Sheet2的F2起始位置
    Worksheets("sheet1").Range("A2:A" & lastRow).Copy Worksheets("sheet2").Range("F2")
End Sub

说明：粘贴时只需要指定目标区域的起始单元格F2，Excel会自动匹配复制区域的大小，不用手动写结束位置，更简洁。

方法二：直接引用整列有效区域（适合数据连续的场景） #

如果Sheet1的A列数据是连续的（没有中间空行），也可以用这种写法：

Sub CopyData()
    ' 复制Sheet1中A2到A列最后一行的有效区域
    Worksheets("sheet1").Range("A2", Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp)).Copy _
        Worksheets("sheet2").Range("F2")
End Sub

额外注意事项 #

• 确保工作表名称拼写正确：VBA里工作表名称不区分大小写，但要和Excel里实际的工作表名完全一致（比如别把Sheet1写成sheet1如果实际表名是大写开头的）；
• 如果需要复制多列数据，只需要修改列标识即可，比如把A改成A:C就能复制A到C列的区域。

内容的提问来源于stack exchange，提问作者S31