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))
簡潔些

類似的主題
主題	主題作者	討論版	回覆	最後發表
excel 圖表的問題	st0421	-- OFFICE 相關軟體討論版	2	2008-05-17 04:28 PM
Excel 時間與比較問題	小高	-- OFFICE 相關軟體討論版	3	2003-12-30 09:26 PM
Excel 篩選問題	miniguy	-- OFFICE 相關軟體討論版	3	2003-09-30 04:31 PM
EXCEL 函數問題	Hendry	-- OFFICE 相關軟體討論版	4	2002-07-02 02:32 PM
~~EXCEL 如何調整????	wilking	-- OFFICE 相關軟體討論版	1	2002-05-23 07:16 PM

ET. 會員	Excel 分頁巨集問題請教我有份資料經由文字匯入精靈後(經常要用到)，想讓Excel自動插入分頁巨集但不知道該怎麼做，想請教有經驗的網友只點一下迷經.... 例如：在 A1、A10、A50....等格子裡有字叫"@"... 要怎麼做才能搜索"@"然後在該格子處，逐一搜尋並插入"分頁"... 謝謝...
	回覆

ET. 會員	回覆: Excel 分頁巨集問題請教自問自答~~ 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 平風造雨	回覆: Excel 分頁巨集問題請教 If條件式後面有點冗長，大概是用錄製的直接寫 ActiveSheet.HPageBreaks.Add (Cells(i, 1)) 簡潔些
	回覆