Excel VBA從一個工作簿復制到另一個工作簿

Question

我需要將數據從一個工作簿復制到另一個工作簿。 副本應從單元格A2到最后使用的單元格。 粘貼應放入單元格A2中。

當我使用此行時，出現錯誤。 請幫忙。 我頭疼！

  Workbooks("ClientData.xls").Worksheets("ClientInfo").Range("A2").SpecialCells(x1CellTypeLastCell).Address.Copy Workbooks("BGA Client Bio May2016v4.xlsm").Worksheets("ClientInfo").Range("A2")

Answer 1

您正在使用的特殊單元格只會抓住最后一個單元格，而不是整個范圍。

您也不需要或不需要Address

這會做你想要的

With Workbooks("ClientData.xls").Worksheets("ClientInfo")   
    .Range("A2",.Cells(.Rows.Count,1).End(xlUp)).Copy Workbooks("BGA Client Bio May2016v4.xlsm").Worksheets("ClientInfo").Range("A2")
End with