ページ内の特定のセルに数値があるページを印刷したい

質問

エクセル２００３に関しての質問です。

１ページA～L×５８行のページを４６ページ分ずら～っと縦に並べてあります。(2668行まで)
ここで、J列の１５，１６(結合してあります)もしくは　４５，４６(同じく結合)、２ページ目は７３，７４もしくは１０３，１０４・・・以下４６ページまで。のセルに１以上の整数が入ったページのみを印刷したいのですが、こういったマクロは可能でしょうか？

似た質問はあったのですが、１ページにひとつの数字のみの条件で私応用ができずに・・・
よろしくおねがいいたします。

回答No.1

KURUMITO · ベストアンサー

次のようなマクロでもよいでしょう。

Sub ページ印刷()
Dim n As Integer
For n = 1 To 46
If (Cells(58 * n - 43, "J") >= 1 And Fix(Cells(58 * n - 43, "J")) = Cells(58 * n - 43, "J")) Or (Cells(58 * n - 13, "J") >= 1 And Fix(Cells(58 * n - 13, "J")) = Cells(58 * n - 13, "J")) Then
Range(Cells(58 * n - 57, "A"), Cells(58 * n, "L")).PrintOut
End If
Next
End Sub

お礼

ご回答ありがとうございます！
早速やってみます！