[[20210913214647]]　『種類毎に印刷』（PONTA）　ページの最後に飛ぶ

『種類毎に印刷』（PONTA）

 おせわになります。
 B列のオートフィルターで種類を選択し、種類毎に印刷したいのですが
 種類が多いとかなり時間がかかります。
 それをマクロで何とかしたいのですが、可能でしょうか？

 Sheet1 
     [A] [B] [C]
 [1] *** AAA ***
 [2] *** BBB ***
 [3] *** CCC ***
 [4] *** AAA ***
 [5] *** AAA ***
 [6] *** BBB ***
 [7] *** AAA ***
 [8] *** CCC ***
 [9] *** BBB ***

 宜しくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 こんばんわ　＾＾
可能だと思います！
明日は調理当番なので。。。クッキング！(*^ ^*)
で、他の回答者様のアドバイスをお待ちくださいませ。
お急ぎでなければ、また、現れれるかもしれません。←多分。。。＾＾；
でわ。m(_ _)m
（隠居Ｚ） 2021/09/13(月) 22:38

既に答えが付いているように、可能だと思います。
手順としては以下のようにすればよいでしょう。

 (1)B列から重複のないリストを得る
 (2)リストに沿って以下を繰り返す
     オートフィルタで抽出する
     シートをプリントアウトする

なお、重複のないリストを得るにはいくつか方法があります。
http://officetanaka.net/excel/vba/tips/tips80.htm

まずはご自身で取り組んでみて、うまくいかない（わからない）部分があれば、コードを示したうえで具体的に聞いてみると、アドバイスが得られると思います。

（もこな２） 2021/09/14(火) 03:09

 種類ごとに並べ替えして、データタブの小計機能で（適当に）集計して
 改ページを入れる設定にするのじゃダメですか？

https://www.otsuka-shokai.co.jp/media/soumu/news/excel-skill/tips-23.html
（コナミ） 2021/09/14(火) 11:09

 マクロの記録で、やってみましたが、
 データが違うと全くうまく出来ませんでした。( T_T)
（PONTA） 2021/09/14(火) 22:40

コメント返信：

[ 一覧(最新更新順) ]

[[20210913214647]] 『種類毎に印刷』（PONTA） ページの最後に飛ぶ

[[20210913214647]]　『種類毎に印刷』（PONTA）　ページの最後に飛ぶ