vba 将一个excel的数据复制到另一个excel中

Sub AAA()
    Dim Sh1 As Worksheet
    Dim Sh2 As Worksheet
    Set Sh1 = Workbooks("1.XLS").Sheets(1)
    Set Sh2 = Workbooks("2.XLS").Sheets(1)
    Sh1.Range(Sh1.[A1], Sh1.Range("A1").End(xlDown)).Copy Sh2.[A1]
    Sh1.Range(Sh1.[A65536].End(xlUp), Sh1.[A65536].End(xlUp).End(xlUp)).Copy Sh2.[B1]
End Sub

随便放哪个工作簿吧。但是，两个工作簿都要打开。当然你也可以加上打开工作簿的代码。

追问

我错了，我该说的更明确一点...我的A列的两种数据都有一个title在数据上方一个单元格，复制的时候不要title，所以第一种可以从A2开始，但是第二种数据从下往上的话不是就把title复制到了么

追答Sub AAA()
    Dim Sh1 As Worksheet
    Dim Sh2 As Worksheet
    Set Sh1 = Workbooks("1.XLS").Sheets(1)
    Set Sh2 = Workbooks("2.XLS").Sheets(1)
    Sh1.Range(Sh1.[A2], Sh1.Range("A1").End(xlDown)).Copy Sh2.[A1]
    Sh1.Range(Sh1.[A65536].End(xlUp), Sh1.[A65536].End(xlUp).End(xlUp).Offset(1)).Copy Sh2.[B1]
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yjy3yjvee.html