Excel 分頁巨集問題請教

[ET.]

我有份資料經由文字匯入精靈後(經常要用到)，想讓Excel自動插入分頁巨集但不知道該怎麼做，想請教有經驗的網友只點一下迷經....

例如：在 A1、A10、A50....等格子裡有字叫"@"...
要怎麼做才能搜索"@"然後在該格子處，逐一搜尋並插入"分頁"...

謝謝...

[ET.]

自問自答~~


Sub yy()
'搜索全部行
r = [A65536].End(xlUp).Row
For i = 1 To r
'找出每一行的特定字@
If Cells(i, 1) = "@" Then

'選取並插入分頁符號
Range(Cells(i, 1).Address).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

End If
Next
End Sub

[cinta3344]

If條件式後面有點冗長，大概是用錄製的
直接寫
ActiveSheet.HPageBreaks.Add (Cells(i, 1))
簡潔些