Excel 分頁巨集問題請教



贊助商連結


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

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

謝謝...

贊助商連結


ET.
2007-04-06, 12:51 AM
自問自答~~:fd:


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

:D

cinta3344
2007-05-28, 05:17 PM
If條件式後面有點冗長,大概是用錄製的
直接寫
ActiveSheet.HPageBreaks.Add (Cells(i, 1))
簡潔些