複数の表からデータをまとめて総合表を作りたい

質問

複数の同じ形式の表から、データのある行だけを抽出し、それを全て並べて一つの表にまとめたいです。表自体の列数・行数は固定ですが、行数は項目数によっては余ることがあります。

表１：
日付　　項目　　金額
6/4 花　　　300
6/11 手紙 200
6/14 花 350
(空白) (空白) (空白)
(空白) (空白) (空白)

表２：
日付　　項目　　金額
7/2 手紙 210
7/16 手紙 270
(空白) (空白) (空白)
(空白) (空白) (空白)
(空白) (空白) (空白)

表３：
日付　　項目　　金額
8/9 花　　　300
8/21 手紙 200
8/24 花 350
8/26 花 250
8/29 花 250

これらから下記のような表を作りたいです。

日付　　項目　　金額
6/4 花　　　300
6/11 手紙 200
6/14 花 350
7/2 手紙 210
7/16 手紙 270
8/9 花　　　300
8/21 手紙 200
8/24 花 350
8/26 花 250
8/29 花 250

実際には表も数十あるため、手動では大変で困っています。
もし方法がありましたらご教授下さい。よろしくお願い致します。

回答No.3

kagakusuki · ベストアンサー

1つに纏めた後の表におけるデータが並んでいる順番が、行番号が小さい順になる方法です。(念のためにコピーしたシートで試す様にして下さい)

エクセルシートの列の中で、表が存在している全ての列を纏めて選択
　　↓
Excelウインドウの左上の辺りにある[ホーム]タブをクリック
　　↓
現れた「編集」グループの中にある[並べ替えとフィルター]ボタンをクリック
　　↓
現れた選択肢の中にある[フィルター]をクリック
　　↓
現れた複数の「▼」印のボタンの内、「日付」欄の上にあるボタンをクリック
　　↓
現れた選択肢の中にある[日付フィルター]にカーソルを合わせる
　　↓
現れた選択肢の中にある[ユーザー設定フィルター]をクリック
　　↓
現れた「オートフィルターオプション」ダイアログボックスの中にある[OR]と記されている箇所をクリックしてチェックを入れる
　　↓
「オートフィルターオプション」ダイアログボックスの右端にある欄を上下2ヶ所とも「と等しい」に設定する
　　↓
「オートフィルターオプション」ダイアログボックスの左側に上下2ヶ所並んでいる欄の内、片方に

*?

と入力し、もう片方は何も入力されていない状態とする
　　↓
「オートフィルターオプション」ダイアログボックスの中にある[OK]ボタンをクリック
　　↓
フィルターがかかっている状態でも表示されている行の内、「『1番上の項目欄の行』のすぐ下の行」から「『表の枠線が引かれているセルを含んでいる行』の内、最も下の行」にかけての全ての行を纏めて選択
　　↓
選択されている行をまとめて削除
　　↓
「編集」グループの中にある[並べ替えとフィルター]ボタンをクリック
　　↓
現れた選択肢の中にある[フィルター]をクリックし、オートフィルタ―を解除

回答No.4

Chiquilin

> 実際には表も数十あるため、手動では大変で困っています。
その量だとマクロで処理するしかないですが VBAの知識が最低限ないと
無理です。初心者レベルで充分ですけど。

Excel(エクセル)VBA入門：複数のシートのデータを1つのシートにまとめる
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_data_matome.html

しかし管理できないのに 何故そんな表の作り方をしたのでしょう。
後で困るのは最初から分かっていたはずです。

回答No.2

kagakusuki

1つに纏めた後の表におけるデータが並んでいる順番が、元の行番号が小さい順ではなく、日付順になってしまっても宜しければ次の様な方法があります。(念のためにコピーしたシートで試す様にして下さい)

1番上の表の中の左上の隅のセルを選択
　　↓
Excelウインドウの左上の辺りにある[ホーム]タブをクリック
　　↓
現れた「編集」グループの中にある[検索と選択]ボタンをクリック
　　↓
現れた選択肢の中にある[条件を選択してジャンプ]をクリック
　　↓
現れた「選択オプション」ダイアログボックスの中にある[最後のセル]と記されている箇所をクリックしてチェックを入れる
　　↓
キーボードの[Shift]キーを押しながら、「選択オプション」ダイアログボックスの中にある[OK]ボタンをクリック
　　↓
「編集」グループの中にある[並べ替えとフィルター]ボタンをクリック
　　↓
現れた選択肢の中にある[ユーザー設定の並べ替え]をクリック
　　↓
現れた「並べ替え」ダイアログボックスの中にある[先頭行をデータの見出しとして使用する]と記されている箇所にチェックを入れる
　　↓
「並べ替え」ダイアログボックスの「並べ替えのキー」欄を「値」に、「順序」欄を「昇順」に設定する
　　↓
「並べ替え」ダイアログボックスの「列」欄ををクリック
　　↓
現れた選択肢の中にある[日付]をクリック
　　↓
「並べ替え」ダイアログボックスの中にある[OK]ボタンをクリック

　上記の様に操作しますと、日付欄に日付が入力されている行のデータが日付順で並べ替えられて、表の上の方の行に纏められ、日付欄に文字列データが入力されている行や、日付欄が空欄となっている行のデータは、表の下の方に行に纏められますので、表の下の方の行を確認して不要な行を削除されると良いと思います。

回答No.1

msMike

ひとつ確認しておきたいのですが、貴方自身はマクロ(VBA)がお出来になりますか？