ここから本文です

VBA・・・別ブック指定範囲のコピー貼り付け

nof********さん

2013/6/409:30:40

VBA・・・別ブック指定範囲のコピー貼り付け

Workbooks("コピー元.xls").Activate
Worksheets("コピー元").Activate
Range(Range("A2:B2"), Range("A2:B2").End(xlDown).End(xlToRight)).Select
Selection.Copy

Workbooks("コピー先").Activate
Worksheets("コピー先").Activate
Range("A2").Select
ActiveSheet.Paste


コピー元のデータA2・B2セル以降のデータが空になるまでコピーしてコピー先(A2・B2セル以降)に貼り付けるマクロを作成したいのですが上記のマクロだと何故かC2セル以降のデータもコピーしてしまいます。
どのように修正したらよいでしょうか?
ご教授下さい。

閲覧数:
13,052
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

kei********さん

2013/6/409:54:59

こんにちは~^^

with workbooks("コピー元.xls").worksheets("コピー元")
.range("A2",.range("A2").end(xldown)).resize(,2) _
.copy workbooks("コピー先.xls").worksheets("コピー先").range("A2")
end with

これだけでできませんか?

質問した人からのコメント

2013/6/4 10:27:29

できました!!ありがとうございました!!

あわせて知りたい

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる