エクセルで任意の文字列の１行後に改ページ挿入

質問

どなたかお教え下さい。

沢山の文字列が並んだデータがあり、下記関数だと「...コマンド正常終了」の
文字列の行に改ページが挿入されてしまいます。

該当文字列行ではなく、「...コマンド正常終了」の文字列の１行あとに改ペー
ジを挿入したいのですが
どこを修正または追加したら良いかご教授願います。

初心者ですみません・・・

-------------------------------------------------------------------------

Dim r As Range, fr, fa As String

Application.ScreenUpdating = False
With ActiveSheet
Set r = .Range("A1:A" & .Range("A65536").End(xlDown).Row)
Set fr = r.Find("...コマンド正常終了", LookAt:=xlPart)
If Not fr Is Nothing Then
fa = fr.Address
Do
If fr.Address <> "$A$1" Then .HPageBreaks.Add Before:=fr

Set fr = r.FindNext(fr)
Loop While Not fr Is Nothing And fa <> fr.Address
End If
End With

-------------------------------------------------------------------------

回答No.1

believe_me · ベストアンサー

改ページ挿入部分をoffsetすればＯＫです。
If fr.Address <> "$A$1" Then .HPageBreaks.Add Before:=fr.Offset(rowOffset:=1)

お礼

早々のご教授、有難うございます。
良く理解出来ました。

有難うございました。