Excel 分頁巨集問題請教
 

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

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

謝謝...

回覆: Excel 分頁巨集問題請教
 

自問自答~~:fd:


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

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

End If
Next
End Sub

:D

回覆: Excel 分頁巨集問題請教
 

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