EXCEL VBAで行き先別に集計印刷する方法を教えてください。

Question

EXCELを使い下記のようなCSVデータから行き先別に下記のように行き先別に一票にまとめ出力したいのですが、どうしたらいいのか？
アイデアが浮かびません。ヒントを頂けると助かります。
ピボットテーブルを使えば可能だと思いますが行き先別に一票にならないので別の方法を模索中です。
行き先は商品名は発注日ごとに異なります。

＜元データ＞
行き先　商品名　　 数量
AAA 単3電池　 　3
AAA 単4電池　　 2
AAA ボタン型 5
BBB 単3電池　 　1
BBB 単4電池　　 2
BBB ボタン型 3

＜出力＞
----1P目----
行き先　AAA
商品名　　数量
単3電池　 　3
単4電池　　 2
ボタン型 5
----2P目----
行き先　BBB
商品名　　　数量
単3電池　 　1
単4電池 2
ボタン型 3

Answer 1

違う行き先になるまでループでコピー、違う行き先に変わったら違う印刷ページにループでコピーを繰り返して、行き先が空欄になったら処理終了で良いのではないですか？

Comments

[shinyakita]

ありがとうごさいます。
行き先で条件分岐させるのですね。
やってみます。

Answer 2

ピボットテーブルを使えば可能だと思いますが行き先別に一票にならないので

・・・とのことですが、もし「行き先」の数が30個位内、「商品名」の数が10個以内、くらいでしたら、「GETPIVOTDATA関数」を使うというのはダメなんでしょうか？

「GETPIVOTDATA関数」はピボットで集計された合計値やカウント値、などを、好きなセルに表示する関数です。

ピボットを更新して合計値などが変わると、それも反映されるはずです。

参考URL
https://dekiru.net/article/4481/
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/getpivotdata.htm

もしかしたら、「全ての行先」の印刷内容を、1つのシートに、1票分を1ページおきに、それぞれ印刷される位置に書いていけば、そのシートを印刷するだけでことたりるかもしれません。

※すでに「GETPIVOTDATA関数」を試されていたり、最初から選択肢にないようでしたら本当にすみません。

・・・よく考えたら普通に関数を使うほうが「GETPIVOTDATA関数」を使うよりいいですね。
この回答、削除したかったのですが、やりかたがわかりませんでした。
この回答は無視してください。
大変申し訳ございませんでした。

Comments

[shinyakita]

ありがとうございます。
この関数は知りませんでした。
ピボットの参照が別シートから呼び出せればできそうな気がします。
試してみる価値はありそうです。

[shinyakita]

試してみましたが、私の目的とは違うようでした。
これはこれは便利そうです。

[komugi3333]

ほんとうにすみませんでした。
「GETPIVOTDATA関数」は「決まった場所（セル）にピボットとの合計値などを表示したい」といったケース（帳票作成とか）には便利なときもあるのですが、「質問者様のケースにはあてはまらなかったかも」と投稿してしまったすぐあとに気づきました。
どうか他の識者の方々のご回答をお待ち下さいませ。
でもがんばってください！

[shinyakita]

とんでもないです。
どんなコメントでも有難いです。
ありがとうございます。