エクセルVBA　データを別シートに書き込む

締切済

質問者：nomasters
質問日時：2011/04/08 04:08
回答数：1件

エクセルの、あるシートのデータを、別シートの項目条件の一致するセルに
書き出す方法を教えていただけますでしょうか？　
元のシートには

　Ａ列　　　　　B列　　　　C列
ＩＤ番号　年月日番号　　金額
ＩＤ番号　年月日番号　　金額
ＩＤ番号　年月日番号　　金額
　・　　　　　　・　　　　　　　・
　・　　　　　　・　　　　　　　・

という形で、データが入っています。各列でデータには重複はありますが、　　
A列とB列の内容が共に同じという行は、ありません。
これを列項目がID番号、行項目が年月日番号の、金額を参照する表にしたいのです。

新しいシートのＡ列に降順に全ＩＤ番号を、１行目に同じく全ての年月日番号をいれ、
元のシートのC列データ（金額）を新しいシートの該当セルに書き込むには
どのようにすればいいでしょうか？このような感じで‥。

　　　月日１　月日２　月日３‥‥
ID１　金額　　金額　　金額
ID２　金額　　金額　　金額
ID３　金額　　金額　　金額
　・
　・
　・

実は元のシートは１０枚ほどあり（期間で区切っています）、おまけに各シートには
登場しないＩＤ番号もあります。
そこで、すべてのID番号と年月日番号をまとめ、ひとつのシートにしたいと考えた次第です。

１枚のシートならばピボットテーブルで何とかなるのですが、それをまとめようとすると、
データの量が膨大で、ＰＣがとまってしまう（のか計算が終わらない気が‥）

VBAを使えば何とかなるのかもと思いまして、質問いたしました。

エクセルは２００７です。

どうぞよろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： keithin
回答日時：2011/04/08 19:06

方法１）【推奨・一番簡単】集約用の仮シートを１枚用意，シート１からシート１０まで元データの表を合計１０回コピーして集約シートに上から順に貼り付けて，一本のリストにしてしまう。

一本に集約した元リストから，通常の方法でピボットテーブルレポートを作成する。

＃バリエーションとして：
一発仕事じゃなく，今後元データにあれこれ追記したり改変するのにも自動で追従させたいなど欲が出たときは。
集約用の仮シートを１枚用意
その例えば１行目から100行目には，シート１の元データを数式で参照する
=Sheet1!A1
のような式をずらり並べておく
101行目から200行目には，同様にシート２の元データを数式で参照させておく
同様にシート１０まで，1000行を使って全部のデータを数式で参照させておく。
これを元にピボットテーブルレポートを作成する。
元データの無いセルはゼロが計算されているので，作成したレポートで行・列アイテムからゼロを表示除外しておく。

方法２）クエリを使って，10枚のシートを強引に一つのリストに束ねてピボットテーブルに食べさせる
１０枚のシートはSheet1からSheet10までの名前になっているとする
ブックを保存しておく
ピボットテーブルの作成を開始する
外部データソースを使用にマークし，接続の選択から参照ボタンで「自分ブックを選択」する
とりあえずSheet1$を選んでOKし，シート１の元データからピボットテーブルを作成する

作成したレポートについて，ピボットテーブルツールのオプションでデータソースの変更▼から接続のプロパティを選ぶ
定義のタブでコマンドの種類を「SQL」に変更
コマンド文字列欄に下記をコピー貼り付ける
SELECT * FROM `Sheet1$`
UNION ALL SELECT * FROM `Sheet2$`
UNION ALL SELECT * FROM `Sheet3$`
UNION ALL SELECT * FROM `Sheet4$`
UNION ALL SELECT * FROM `Sheet5$`
UNION ALL SELECT * FROM `Sheet6$`
UNION ALL SELECT * FROM `Sheet7$`
UNION ALL SELECT * FROM `Sheet8$`
UNION ALL SELECT * FROM `Sheet9$`
UNION ALL SELECT * FROM `Sheet10$`

OKし，レポートを更新する。

方法３）【ある意味簡単】
シート１だけから，ふつーにピボットテーブルレポート１を作成する
同様にシート１０まで，ピボットテーブルレポート１０までを作成する

１０枚の縦横集計表が出来てたので，
・データタブの統合を使って一つに束ねる
・ALT+D Pのキー操作でピボットテーブルウィザードを起動し，複数のワークシート範囲から作成した１０枚を改めて元データに指定して集計させる

いずれの方法も，いわずもがなですが各列の先頭行（１行目，A1,B1,C1）には，同じ記載内容で「ＩＤ番号」だの「年月日」だの「金額」だのの内容を記載しておかなければいけません。