[¤À¨É] ²×©ó§ä¨ì¦Û°Ê¤À­¶ªºµª®×

linshin1999

ÁÂÁÂHsieh,GBKEE¨â¦ìª©¥Dªº«ü¾É,¦Û°Ê¤À­¶¥i¥H³o¼g:
Sub ¦Û°Ê¤À­¶
    Dim page_count As Long
    Dim i As Long
    Dim row_index As Long
    Dim str_row_index As String
    Dim first_row As Long
    Dim jump_page
   
    ActiveWindow.View = xlPageBreakPreview
    first_row = 50
    jump_page = 50
    For i = first_row To rows_count Step jump_page
        page_count = page_count + 1
        str_row_index = "A" + Trim(Str(i + 1))
        Set ActiveSheet.HPageBreaks(page_count).Location = Range(str_row_index)
    Next i
    ActiveWindow.View = xlNormalView
End Sub