Excelのマクロに関する質問です。良い回答は、250ポイント差し上げます。
ブック内各シートのデータを連結したい。
※ブック内にはTOPシートがあり、TOPシートは連結しない
※各シートの数は50シート位、シート名の規則はない
※各シート行数はバラバラ
【青森シート】
2-----青森------------------- ←セルを結合しています。
3 入金 出金 損害金
4 500 1000 300
5 800 900 100
【岩手シート】
2-----岩手------------------- ←セルを結合しています。
3 入金 出金 損害金
4 800 300 150
□□□集計後のイメージ□□□□□□
【集計シート】
2-----青森------------------- ←セルを結合しています。
3 入金 出金 損害金
4 500 1000 300
5 800 900 100
7
8-----岩手------------------- ←セルを結合しています。
9 入金 出金 損害金
10 800 300 150
11
マクロでの回答は、ソースも記述願います。
どうか宜しくお願いします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
Mook
満足250pt
先頭シートを TOPシート とみなしています。
Sub GatherData() Dim dstRow As Long dstRow = 2 Dim lastRow As Long Dim i As Long For i = 2 To Worksheets.Count lastRow = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row Worksheets(i).Rows(2 & ":" & lastRow).Copy _ Destination:=Worksheets(1).Rows(dstRow & ":" & (dstRow + lastRow - 2)) dstRow = dstRow + lastRow - 1 Next End Sub
-
anim130M
-
anim130Mその他の回答
-
fonya3
満足50pt
マクロに関する回答では無いのですが、そもそも元データのシートの作りをデータベース的にしてピボットテーブルで集計するのが現在のExcel使いの定番なのではないでしょうか。
都道府県 年月 入金 出金 損害金
この様な列に一連のデータを入力してピボットテーブルで集計すればマクロなんて不要ですよ。
ピボットテーブルについてはこのへんを見てください。
-
anim130M
-
- その他の回答を読む
この質問へのコメント
質問の情報
- 登録日時
- 2011-02-25 23:32:27
- 終了日時
- 2011-02-26 00:42:52
- 回答条件
- 1人10回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
木の太い幹、木の太い根、を掘り出しました。このまま捨てるのは大変です。重いです。切るのも硬いです。干…
匿名質問者
1
-
今行きがかり上で中小企業を相手に民事訴訟の原告と被告で2件の裁判を抱えています。しかし何も深刻さはな…
asnaro_71
2
-
海外の習慣、民族的なことに詳しい方に質問です。 「玄界灘に生きた人々」という本で、「ダイコン官との旅…匿名質問者
-
【ナルコ】 私は医療に関して（当事者ではあるものの）素人です。 友人Aは「ナルコレプシー」的に、話して…
SE**.M1
-
外国から、王族が来ると、その人のパスポートは、ふつうのパスポートとは違う？ 外交官パスポートみたいな…匿名質問者