例えば、同じフォーマットのデータが、ひとつのブックの複数シートに入っているとして。
下↓のサンプルデータのようなケースです※１。
でね、それらをシート１枚に合体する作業※２を想定してほしいんですよ。

…サンプルデータ、手抜きじゃないですよ（笑）。 合体したときの結果がわかりやすいように、「あえて」です、あえて。
さて、眺めていただければわかると思いますが、「ああああ」「いいいい」「うううう」「ええええ」の４つのシートは、件数こそ違いますが、表のつくりは同じになってます。 項目の数も同じ。 項目の構成も、同じと考えてください。 で、コイツを合体したいな、というときに。
この手の↑作業、手作業でやるならコピペ繰り返しになるかと思うのですが、今回はこれを、VBAでやってみたいと思います。 さて、どうなることやら。

今回のマクロの考え方

では、前回同様、最初はイメージ作りから、…とイキたいところなのですが、イメージ作るにしても、何か材料がないと、なかなかむずかしいですよね。 なので、上述の合体作業、手作業だったらどういう動きをするか、一度観察してみましょう。

では、まず、新しい、まっさらなブックを開きます※３。 ここにデータを集約します。

そうしたら、シート「ああああ」の全データをコピーして…※４。

新しいブックに貼り付けます※５　※６。

次に、「いいいい」の２行目からおしりまでをコピーします※７。 ２行目から、最終行まで、です。

貼り付けるのはもちろん、さっき貼り付けた「ああああ」分の次の行からです※８　※９。

後は、※７～※９の作業を「うううう」「ええええ」と繰り返せばＯＫ。 合体は完了します。

…と、手作業でやるならこんな↑感じになるんじゃないかと思うんですよ。 後は、これをマクロでどうやるか。
ちょっとまとめてみました※10。

各シートの内容をコピーするところは、ループ処理でイケそうですよね※11。
コピペの仕方についてはまだ語ってないので、わからない部分だとは思うのですけど。

…あと、新しいブックを開くやり方もまだですね。
その辺り、順番に学んでいきましょうか。

シートを次々選択する

まず、シート１からシート４まで、１コずつ順番に開いてみましょう。

Sub シートを4つ目まで順番に選択する_その1() Sheets(1).Select '1番目のシートを選択 MsgBox "選択しているシートは" & Sheets(1).Name & "です" '選択中のシート名を表示 Sheets(2).Select '2番目のシートを選択 MsgBox "選択しているシートは" & Sheets(2).Name & "です" '選択中のシート名を表示 Sheets(3).Select '3番目のシートを選択 MsgBox "選択しているシートは" & Sheets(3).Name & "です" '選択中のシート名を表示 Sheets(4).Select '4番目のシートを選択 MsgBox "選択しているシートは" & Sheets(4).Name & "です" '選択中のシート名を表示 End Sub

とりあえず、ループさせないかたちで作ってみました。 今回も、マクロ専用ブック（其ノ11のマクロだけのブック）を作って、そこに書いてくださいね。 で、コイツを動かすと…※12　※13。

１コずつ開いてくれます。

シートを選択するワードは.selectです。 セルを選択するときと同じですね。 シートの指定はsheets()で行い、かっこの中に数字を入れます。
この()の中の数字は「左から何番目」という意味なので、例えばシートの順番を入れ替えて「うううう」を一番左にもってくると、一番最初に選択される、つまりsheets(1)が「うううう」シートになります。

数字の代わりにsheets("ええええ").selectというかたちで名前で指定することもできます。 この場合、左から何番目にあろうが関係なく「ええええ」を選択できます（「ええええ」というシートが存在しないとエラーになっちゃうけど）。
今回はループ処理をさせたいので、sheets(1)、sheets(2)、sheets(3)…とシート番号で指定する方を使いますが、ただ、シート名を直接指定するやり方も、局面によっては非常に便利です。 なので、頭の片隅に置いておいてください。

では今度は、ループさせるバージョンです。※16　※17。

Sub シートを4つ目まで順番に選択する_その2() '宣言 Dim i As Integer 'ループ処理 ４まで i = 1 Do Until i > 4 Sheets(i).Select 'i番目のシートを選択 MsgBox "選択しているシートは" & Sheets(i).Name & "です" '選択中のシート名を表示 i = i + 1 Loop End Sub

sheets(1)からスタートして、iが4を超えたらもう処理しない、という命令にしました※18。

…ですが。
これだと、シート４までしか仕事してくれないんですよ。 シートが５枚のときも、10枚のときも、シート４までしか処理してくれない。
（さらに、この書き方だと、sheets(4)まであることが前提になっているから、もしシートが３枚しかなかったらエラーになっちゃうし。）
僕らがほしいのは、全部のシートを作業してくれるしくみです。 シートが何枚でも、おしりまで作業してくれなければ困ります。 なので、こんな↓ふうに書き換えてみました。

Sub 全部のシートを順番に選択する() '宣言 Dim i As Integer 'ループ処理 すべてのシートを順番に i = 1 Do Until i > Sheets.Count Sheets(i).Select 'i番目のシートを選択 MsgBox "選択しているシートは" & Sheets(i).Name & "です" '選択中のシート名を表示 i = i + 1 Loop End Sub

sheets.countというのは「現状存在するシートの数」のことです。 かっこなしの「sheets」で、cellsやrowsと同じく「すべてのシート」を意味します。 「count」は英語で「数」ってことですもんね。 だから、sheets.countは、今回のケースだと「4」になります。 もちろん、シート数を増減させると、sheets.countの値も変わってきますよ。

と、いうことで、コイツを応用すれば、「シートをおしりまで、順々に見に行く」という処理が書けそうです。

コピペする

では次に、コピペの仕方。 コードを３つ紹介します※19ので、コイツをサンプルデータに対して使用してみてください。 コツが掴み取れる、…ハズです。

Sub コピペ練習その1() Cells(1, 2).Copy Destination:=Cells(3, 7) End Sub

Sub コピペ練習その2() Range(Cells(1, 1), Cells(3, 5)).Copy Destination:=Cells(3, 7) End Sub

Sub コピペ練習その3() Range(Cells(1, 1), Cells(3, 5)).Copy Destination:=Sheets(3).Cells(17, 1) End Sub

VBAでコピー＆ペーストは、

Rangeオブジェクト.Copy Destination:=宛先

となります。 他にも書き方はあるんだけど、とりあえず基本形を１コ、覚えましょう。
「Sub コピペ練習その1()」を使うと、セル(1, 2)をセル(3, 7)にコピーします※20。 セル１コもRangeオブジェクト、ですよ。

「Sub コピペ練習その2()」は範囲コピーです。 宛先（Destination:=○○）は、左上を始点に指定します※21。 「destination」は「目的地」とか、そんな意味です。

「Sub コピペ練習その3()」では、宛先をシート３のセル(17, 1)に指定しています。
だから、シート１で動かせば、その内容がシート３にコピーされます※22　※23。

…う～ん、意外に話が長くなってきちゃったから、以下次回！