Excelのマクロで改ページを設定する

質問

A列に"○"が付いている行で改ページを行う、というマクロを
作りたいと思っています・・・というか過去に、ネット上で
紹介されているマクロを参考に作った記憶はあるのですが、
そのファイルも見つからず、また、参考にしたサイトも見つからず、
ちょっと困っています。

参考になるサイト等ご存じでしたら教えていただけると幸いです。
厚かましいお願いをするならば、もちろん直接教えていただけるのも
大歓迎です。

よろしくお願いいたします。

回答No.1

kmetu · ベストアンサー

With Worksheets(1).Range("a:a")
Set mRange = .Find("○", LookIn:=xlValues)
If Not mRange Is Nothing Then
firstAddress = mRange.Address
Do
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=mRange.Offset(1, 0)
Set mRange = .FindNext(mRange)
Loop While Not mRange Is Nothing And mRange.Address <> firstAddress
End If
End With

でいかがでしょう

お礼

ありがとうございます！

まさしく、こういったことがやりたかったんです。
非常に助かりました。

本当にありがとうございました。