Excelに詳しい方、教えていただきたいです！例えば、Excelの表でA列に100行あるとします。全て異なる項目で、それぞれをフィルタをかけて一つづつ印刷をするということをしなければいけないのですが、上から順に一つづつフィルタをかけてそれぞれ印刷、ということを自動化できる方法はあるのでしょうか？毎月の作業で、できれば自動化できたら助かります。どうぞよろしくお願いします。

結論から言うと、できます。でも、多分その作業を毎月手動でやってる時点で、人生のどこかで選択肢を間違えてる気がします。



で、本題なんですが…



やり方としては二つあります。



・簡単な方法

ピボットテーブルでA列を行ラベルにして、表示されてる項目ごとに印刷する機能があります。ピボットの「レポートのフィルター ページを印刷」を使うと、A列の値ごとに自動で印刷してくれます。

ただ、ピボットが嫌いな人は一定数いるので、その場合は次の方法です。



・確実な方法（VBA）

Excelにマクロを書いて、A列の値を順番に読み取って、その値だけをオートフィルタで抽出→印刷、を繰り返します。

10〜15行くらいのコードでできます。



ざっくり書くとこんな感じです。



Sub PrintByFilter()

Dim c As Range

For Each c In Range(“A2:A101”)

ActiveSheet.Range(“A1”).AutoFilter Field:=1, Criteria1:=c.Value

ActiveSheet.PrintOut

Next

ActiveSheet.AutoFilterMode = False

End Sub



こんなのでもう自動化できます。人間が100回フィルタをカチカチ切り替えるより、マクロにやらせた方が効率も機嫌も良くなります。