2016-10-28 30 views
0

あるブックから別のブックにデータをコピーする必要があります。コピーはセルA2から使用された最後のセルまででなければなりません。ペーストはA2セルに配置する必要があります。Excelブックを別のブックにコピーする

この行を使用するとエラーが発生します。助けてください。頭が痛い!

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

答えて

0

使用している特別なセルを使用すると、最後のセルだけが全体の範囲ではなく取り込まれます。

ます。また、必要とするか、またはしたくない。これは、あなたが

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 
+0

やりたいだろうAddress

は、お返事ありがとうございました。あなたのコードを使用しましたが、今はエラーは発生しませんが、セルA2のみをコピーして貼り付けます。 – JordanCA57

+0

私はそれを得た。私はこれを使った。ワークシート( "ClientData.xls")ワークシート( "ClientInfo") .Range( "A2"、.Cells(.Rows.Count、1).SpecialCells(xlLastCell))。 "BGA Client Bio May2016v4.xlsm")。ワークシート( "ClientInfo")。範囲( "A2") – JordanCA57

+1

@ JordanCA57 Scottさんがあなたの質問に答えた場合は、彼の答えでチェックマークをクリックして、あなたを助けることに努力して彼に報酬を与えることができますか? – Tyeler

関連する問題