Excel2003 BookからBookへ転記

質問

A 　　　　 B 　　　 　 C 　　　　　 D
1 コード　　　日付　　　枚数　　　金額
2 1502 　　　 7/1 　　　 8 　　 25500

フォルダ内でBook1 Sheet1に毎日の売り上げを入力します、コードが50超あります。コード別にBook2～Book51を作成(Book2は1502)として転記させることは可能でしょうか？　Book1 Sheet2に転記することは出来ますが、BookからBookは私の力量ではむずかしいです、Book2 Shee1はデータ蓄積、sheet2は納品、sheet3は請求と活用して行きたいと思います、どうぞ宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

添付図は潰れてしまって見えにくいと思いますが、次の手順により、特にマクロとか何も使わずエクセルの一般機能だけで実現できます。

１．元リストのＡ列に「番号」列を追加
　　データの上から順に１，２，３…の連番を振っておきます
　　Book1.xlsは保存しておく

２．ブック２を開き、データメニューの「ピボットテーブルレポート」を開始
　　ダイアログの2/3画面で、「参照」ボタンをクリックしてBook1.xlsを指定
　　範囲欄に
　　'C:\test\Book1.xls'!
　　のように自動記入されるので、次のように、シート名、列範囲を指定し書き換える
　　'C:\test\[Book1.xls]Sheet1'!$A:$E

　＃間違えないよう、確認して正しく記入する事。

３．ウィザードの3/3画面でレイアウトをクリック
　　コードをページに
　　番号、日付、枚数を行に
　　金額をデータに　それぞれドラッグして配置
　　さらにデータに放り込んだ金額が「データの個数/金額」になっているので、Ｗクリックして「合計」に変更
　　でＯＫし、完了する

４．ページ欄の「コード▼」をプルダウンして1502を選択する

５．作成できたブック２を保存し、名前を変えて別のブックとしてまた保存する
　　別のブックでは「コード▼」から別のコードを指定する。

お礼

ありがとうございました、試行錯誤しながらようやく出来ました。