excel - VBA Excel : Is it possible to count horizontal page breaks in a named range?

Question

我有很多自动生成的报告，每个报告包含 24 个命名范围。

每个命名范围不能被水平分页符打破。

我的想法是遍历所有命名范围并计算其中的分页符。

但我找不到一种方法来计算指定范围内的分页符。

有人知道这是否可能吗？

编辑:感谢您的建议。希望我能在圣诞节前找到时间测试它，否则我会在一月份回来回答。

Answer 1

欢迎来到 SO。可以简单地扫描命名范围，然后扫描范围的行以查找已经存在的分页符。但恐怕这是一个缓慢的过程，并且可能需要很长时间才能在具有许多长命名范围的文件中。请根据您的要求进行修改。

Sub test()
Dim Rw As Range
Dim RngStr As String, Nm As Name

    For Each Nm In ThisWorkbook.Names
    RngStr = Nm.Name
        For Each Rw In Range(RngStr).Rows
            If Rw.PageBreak <> xlNone Then
            Debug.Print RngStr & " on " & Range(RngStr).Address(, , , True) & " has a Pagebreak at Row " & Rw.Row
            End If
        Next Rw
    Next Nm

End Sub