EXCELのブック間の抽出方法を教えてください。

質問

Aという集合ブックがあります。B～Eの個人ブックがあります。
今現在は、マクロの自動記録を使って
B～EのブックのB6：F25のセルを自動で
AのブックのB6以降のセルに順番に貼り付けてくるようにしてますが、
ブックによってはB15の行までしか入力が無いものもあり、
空白の行までコピーしてきて見辛くなってしまってます。
空白行は抽出しないようにしたいのですが
何かいい方法がありましたら教えてほしいです。
宜しくお願い致します。

回答No.2

mitarashi · ベストアンサー

#1と違った切り口で、貼り付け先のセルを集約ブック・シートＢ列のデータの入った最終セルの一つ下にすれば、空白をコピーして来ても関係なくなります。
Selection.Offset(1, 0).Select　は、自動記録では得られないので、覚えるしかないです。
また、貼付先が空の時に誤動作しますので、IF文で分岐させています。ご参考まで。
Sub test()
Windows("Book1.xls").Activate
Sheets("Sheet1").Select
Range("B6：F25").Select
Selection.Copy
Windows("Book2.xls").Activate
Sheets("Sheet1").Select
Range("B6").Select
If Range("B6").Value <> "" Then
Range("B65536").Select '2003以前の場合
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
End If
ActiveSheet.Paste
End Sub

お礼

ありがとうございます。
いっぱいお答えしてもらったんですけど、なにがなにやら分からなくて、とりあえず本で調べたりしてますけど、マクロが全然分からないので、勉強しないとです(ノω`*)アハッ
ブック１とブック２って記述にありますけど、ブック３以降は同じような記述で追加したらいいものなのか、よくわからないことばかりなので、とりあえず貼ってみて動きを見ながら研究してみます。

回答No.1

temtecomai2

マクロの記録で個人ブックでコピー範囲を決める箇所は

1. B6を選択する。
2. [Shift] を押したまま [End] を 1回押す。(Shift を離さずに) [↓] を 1回押す。
3. (Shift を離さずに) [End] を 1回押す。(Shift を離さずに) [→] を 1回押す。

という操作で記録してみては？
[End]+[カーソルキー] はデータが連続して入力されていることが条件なので、場合によっては 2 と 3 を入れ替える必要があるかもしれないし、この方法が使えない可能性もある。

Range("B6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

お礼

ありがとうございます。
Ｂ6がコピーのトップですけどＢ6～Ｆ6を下方向にコピーする場合は、Ｂ6～Ｆ6をドラックしてから2と3を処理したらいいのかなぁ・・・
マクロって処理は便利だけど分からない事ばかりで、難しいですね。。。