VBA遍历分页符时触发运行时错误'9'，求排查解决

我正在开发一个需要从其他工作表复制粘贴单元格区域的应用，核心逻辑是检查复制的区域能否容纳在目标位置的可用空间内。大部分情况下运行正常，但在特定迭代后会触发运行时错误'9'（下标越界）。

相关代码 #

Function checkBlockFits(buildingRg As Range, pasteRg As Range) As Boolean
        checkBlockFits = True
        
        Dim sRow As Long: sRow = pasteRg.Row
        Dim eRow As Long: eRow = sRow + 10000
        
        '查找分页符所在行
        Dim pb As HPageBreak, rw As Long
        pbCount = shPdf.HPageBreaks.Count
        
        For Each pb In shPdf.HPageBreaks
                rw = pb.Location.Row
                If rw > sRow And rw < eRow Then Exit For
        Next pb
        
        '计算可用高度
        Dim aHeight As Double: aHeight = getRowHeight(Range(Cells(sRow, 1), Cells(rw, 1)))
        
        '计算所需高度
        Dim rHeight As Double: rHeight = getRowHeight(buildingRg)
        
        If aHeight < rHeight Then checkBlockFits = False

End Function

错误细节 #

• 错误触发前，pbCount的值始终为159（对应Excel分页视图中的159页）
• 函数被循环反复调用，仅在特定节点抛出错误，且无法进入For Each pb In shPdf.HPageBreaks循环
• 此前所有迭代均正常运行

排查与解决思路 #

1. 修复未限定工作表的单元格引用 #

代码中Range(Cells(sRow, 1), Cells(rw, 1))未指定工作表，若当前激活的不是shPdf，会导致跨表引用错误。必须明确绑定工作表：

aHeight = getRowHeight(shPdf.Range(shPdf.Cells(sRow, 1), shPdf.Cells(rw, 1)))

2. 处理无符合条件分页符的场景 #

如果循环结束后未找到满足rw > sRow And rw < eRow的分页符，rw会保持初始空值，后续调用Cells(rw,1)直接触发下标越界。提前给rw赋值为工作表最后一行：

'初始化rw为目标表最后一行
rw = shPdf.Cells(shPdf.Rows.Count, 1).End(xlUp).Row
For Each pb In shPdf.HPageBreaks
        rw = pb.Location.Row
        If rw > sRow And rw < eRow Then Exit For
Next pb

3. 强制刷新分页符集合 #

Excel的HPageBreaks集合在高频调用时可能因UI线程滞后出现临时异常，在获取集合前强制刷新分页：

'在获取HPageBreaks前添加
shPdf.Activate
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalView

4. 声明未定义的变量 #

pbCount未用Dim声明，属于全局变量，可能被其他代码意外修改。添加变量声明：

Dim pbCount As Long
pbCount = shPdf.HPageBreaks.Count

内容的提问来源于stack exchange，提问作者Suman Razz