エクセルマクロ：複数シートの同じセル範囲を一覧表示

質問

複数のシートの同じセル範囲（たとえば、複数シートのB5～B21）を一つのシートにまとめたいです。
ほぼ同一条件の質問が↓にありましたが、やりたい事が少しだけ違います。
http://webcache.googleusercontent.com/search?q=cache:xTW6Bh9ySsIJ:okwave.jp/qa/q4600652.html+&cd=2&hl=ja&ct=clnk&gl=jp
【上記URLの回答内容】
同一ブック内にシートを追加し、指定範囲をA1基点に下方向に連続コピー
【今回知りたい内容】
同一ブック内に存在しているシート(名前"サマリ")に、指定範囲をE4を基点に右方向に連続コピー。
　(情報を持ってきたいシートは表示したい順に並んでいます)　

マクロ初心者です。
どなたかお知恵を貸して下さい。お願い致します。

回答No.1

MackyNo1 · ベストアンサー

リンクの回答で縦方向のデータが追加できる場合、それを横方向に1列ずつデータを追加したいなら貼り付け位置を指定するコードの部分を以下のように変更してください。

Sheets(1).Range("IV4").End(xlToLeft).Offset(0, 1).Select

ただし、４行目に何もデータが無い場合はＢ４セルが選択されてしまうので、1つ目のデータだけＥ２セルを指定して貼り付け、2つ目のデータから上記のコードでFor　Nextを使って貼り付けるようにコードを修正してください。

そのままのコードで対応できるようにしたいなら、実戦的にはＤ４セルにスペースを入力するなどの処理が簡単かもしれません。

お礼

早々のご回答ありがとうございました！
できました。
今回は内容はもちろんですが、早々にご回答いただいたという点でこちらをBAとさせていただきます。
本当にありがとうございました。

回答No.2

keithin

sub macro1()
　dim c
　dim w as worksheet
　c = 5
　for each w in worksheets
　if w.name <> "サマリ" then
　　w.range("B5:B21").copy worksheets("サマリ").cells(4, c)
　　c = c + 1
　end if
　next
end sub

＃参考
ご質問では情報提供されてませんが、コピーしたら実はダメだった時は
worksheets("サマリ").cells(4,c).resize(17,1).value = w.range("B5:B21").value
みたいにします

お礼

ありがとうございました。できました。
参考記載いただいた部分も勉強になりました。
どうもありがとうございました。