各位大牛，VBA运行时总出现下标越界，怎样处理？

独钓寒江

目的：是将工作表（几下页或几百页的）只保留首页和最后一页，中间页全部删除（最好能一键删除），但在运行时总出现“下标越界”或“9”的调试界面，不知是怎么回事，请各位大牛指点下？非常感谢！！！

Sub DeleteMiddlePages()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastPage As Long
    Dim i As Long
    Set ws = ActiveSheet '获取当前工作表
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
    lastPage = ws.HPageBreaks.Count + 1 '获取总页数
    For i = 2 To lastPage - 1 '从第二页开始循环，到倒数第二页结束
        ws.Rows(ws.HPageBreaks(i - 1).Location.Row & ":" & ws.HPageBreaks(i).Location.Row - 1).Delete '删除当前页的所有行
    Next i
End Sub

shiruiqiang

删除要后面往前，For i =  lastPage - 1 to 2 step-1

独钓寒江

shiruiqiang 发表于 2023-2-28 18:42
删除要后面往前，For i =  lastPage - 1 to 2 step-1

大哥，这个是怎样弄，我复制进去说缺少语句。

shiruiqiang

独钓寒江 发表于 2023-2-28 22:01
大哥，这个是怎样弄，我复制进去说缺少语句。

按照你的代码，试试 ：
lastPage = ws.HPageBreaks.Count  '获取总页数
    For i =  lastPage  to 2  step- 1 '从倒数第二页开始循环，到第二页结束

独钓寒江

shiruiqiang 发表于 2023-2-28 22:05
按照你的代码，试试 ：
lastPage = ws.HPageBreaks.Count  '获取总页数
    For i =  lastPage  to 2  ...

谢谢兄台，按您的意见修改好很顺利了。很感谢。