请问，如何添加循环实现全部分页？

bzjwcws

在【总分类账分页测试】工作簿中的【分页】工作表中，我想通过从【A:I】列中查找K列的关键字进行循环分页，所实现的功能见【分页效果】工作表。我所写的代码只能循环f二次，请大侠帮助修改一下代码，谢谢！

木子客

相同的问题
https://club.excelhome.net/thread-1683052-2-1.html

木子客

木子客 发表于 2024-6-23 11:38
相同的问题
https://club.excelhome.net/thread-1683052-2-1.html

不好意思回复错误了

木子客

Sub test()
Dim i%

For i = Range("E65535").End(xlUp).Row To 2 Step -1
    If Cells(i, 5) = "摘要" Then

        ActiveSheet.HPageBreaks.Add Before:=Cells(i - 1, 5)
    End If
Next
End Sub
问题简单化，循环E列，凡是“摘要”行的上一行插入分页符不行么

quqiyuan

参与一下，供参考。。。
我这个方法是，插入分页符，然后加； 8行空行，你写的空行多少看不太懂，就随便写个8行，好看一点分开了，有分页符你打印也是可以的了

quqiyuan

代码如下。。。
Sub test()
Set d = CreateObject("scripting.dictionary")
    With Sheet3
    arr = .[k1].CurrentRegion
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = arr(i, 1)
    Next
        r = .Cells(Rows.Count, 1).End(3).Row
        For i = r To 2 Step -1
            If d.exists(.Cells(i, 1).Value) Then
                .HPageBreaks.Add Before:=.Cells(i, 1)
                .Rows(i).Resize(8).Insert Shift:=xlDown
                .Rows(i).Resize(8).Borders.LineStyle = xlNone
            End If
        Next
    End With
    Beep
End Sub