指定シートの右にある複数のシートをひとつにまとめる

質問

指定したシートの右側にある複数のシートをひとつにまとめたい。

例）
シートは次のような構成になっています。
（画像を添付しています）

○「あ」シート～「え」シート　⇒　まとめの対象にならないシート

○「まとめ」シート　⇒　データシート「その１」～「その３」シートをまとめたシート

○「その１」シート～「その３」シート　⇒　データシート（ヘッダはすべて同じ）

＜行ないたいこと＞

・「まとめ」シートに、データシートである「その１」「その２」「その３」を
　行方向につなげたい
　（そのあとにピボットテーブルなどに使えるように）
・データシートは「その４」「その５」・・と増える可能性があるので、
　それらにも対応したい

＜バージョン＞
・EXCEL2010

以上になります。

－－－

「複数のシート」をまとめる質問・回答はたくさん出ていると思うのですが、

・ブックの全シートが対象ではない
・対象シートが増えたり減ったりする

ということにどのように対応したらよいかわからず
質問させていただきました。

よろしくお願いします。

回答No.2

eden3616 · ベストアンサー

タイトル行の様式が異なる場合や、出力先の右側にデータシート以外が混ざった場合等のエラー対策はしておりません。

Alt+F11よりVBEを開き、挿入から新規標準モジュールを挿入して、最下のVBAコードを貼り付けてください。
VBEを閉じたのちに、出力先シート（まとめシート）を表示した状態でAlt+F8よりマクロ「sample」を実行してください。

また、本文に記載のない事は以下のように仕様を取りまとめて作成しています。

・「指定シート」の指定方法が記載されていないため、表示（選択）しているシートに出力します。
・出力シートより右側にあるシート全てが取得対象になります。
・出力シートには予めデータと同じタイトル行（1～3行）が作成されているものとします。
・集約方法は、タイトル行以外の行をコピー（書式込）になります。
・各シートのデータ最終行が変動するかしないか記載されていないため、3行目から各シートの「A列」の最終行までをコピーします。
・上記条件において、3～最終行にデータが無ければコピーしません。

■VBAコード

Sub sample()
Dim i As Long
Dim rmax As Long
Dim tar As Worksheet
Dim tmax As Long
With ActiveSheet
　　For i = .Index To Worksheets.Count
　　　　Set tar = Worksheets(i)
　　　　rmax = tar.Cells(Rows.Count, "A").End(xlUp).Row
　　　　If rmax > 2 Then
　　　　　　tmax = .Cells(Rows.Count, "A").End(xlUp).Row
　　　　　　If tmax <= 2 Then tmax = 3 Else tmax = tmax + 1
　　　　　　tar.Range(tar.Rows(3), tar.Rows(rmax)).Copy .Rows(tmax)
　　　　End If
　　Next i
End With
End Sub

お礼

ありがとうございました。

教えていただいたVBAを、
実際作成していたフォーマット用にアレンジしたら
求めていたことができました。

助かりました。

回答No.1

imogasi

データシート「その１」～「その３」を順に、「まとめ」シート　の左列からへ、その１からその３をそれぞれコピーし、貼り付けたらどうですか。といいたい。
多分こう簡単ではないのだろう。その実情を質問に書くのが質問文だろう。
ーー
エクセルのデータに対する認識が少ない人のような質問の仕方ですね。
エクセルは列方向（右方向）に属性が並び、たぶん最左列に、それら属性の「主体」（人間、製品・物体、勘定などやそのＩＤ的なもの。例外的に地点や時刻など抽象的なものがありえる）だ来るデータの整理方法が多い。
そして「主体は」作表される時期で増減することが多い。
そういうことを説明しないでは、結合する場合のむつかしさが説明されず、回答のしようがない。
普通は氏名・物品や、その番号で２つのシートデータを結合すると思う。
そのためにはＩＤでソートして、そのＩＤでマッチングするのが、昔から使われるロジックなんだが、質問者はマッチングなど意識したことあるかな。
＞・ブックの全シートが対象ではない ・対象シートが増えたり減ったりする
は、さらに、次の段階の話だろう。
そのほかセル範囲的に長方形的に収まっているのか。第１０行だけＲ列までデータがあるが、その他はＱ列までとかのシートや行はないのか。列的に凸凹と言おうか。
ーー
一見した感じでは、ＶＢＡを使わないとスムーズに目的を達せられないと思う。
ＶＢＡができないなら、エクセルだけの質問カテゴリがあると思うので、そちらへできる方法がないか、質問を出したらどうか。
ーー
「まとめ」シートの完成した場合の、最上行の項目見出しだけでも書いて説明すべきだろう。さらにそれらの列データの内容概略（特徴、注意点）とかも説明必要かと思う。