VBAで飛び飛びの印刷範囲の認識する方法

いつもお世話になります

今、印刷範囲外のセルを自動的に削除するプログラムを作っていますが
飛び飛びに印刷範囲が設定されているとき、それぞれの印刷範囲を取得して
処理して行きたいのですがその取得方法がよく分かりません

今のステートメントは
Dim startRow As Long, startCol As Long
Dim lastRow As Long, lastCol As Long
With ws.Range(ws.PageSetup.PrintArea)
startRow = .Rows.Row
lastRow = startRow + .Rows.Count - 1
startCol = .Columns.Column
lastCol = startCol + .Columns.Count - 1
End With
としていますが、
印刷範囲の個数とそれぞれの先頭行、カラムを取得するには
どのような手段が有るか教えてください

以上、よろしくお願い申し上げます

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2018/09/04 21:27

for each ar in ws.range(ws.pagesetup.printarea).areas

with ar
:
:
end with
next ar

ってな感じ。

この回答へのお礼

ありがとうございます
カウント出来ました
本当に助かります
これからもよろしくお願いいたします

お礼日時：2018/09/05 10:05