Excel VBA自动分级代码优化：解决末行分组错误与运行时错误'9'

一、搞定运行时错误'9'（下标越界） #

这个错误基本是代码里硬编码了固定的行列范围，或者数组没跟着实际数据动态调整导致的，改这几个地方就行：

• 把所有写死的行列（比如Rows(2 To 20)）换成动态获取的数据区域：

  Dim dataRange As Range
  Set dataRange = ActiveSheet.UsedRange
  Dim lastRow As Long, lastCol As Long
  lastRow = dataRange.Rows.Count
  lastCol = dataRange.Columns.Count
  

• 如果用了数组存分组层级，别固定数组大小，根据实际行数动态定义：

  Dim levelArr() As Integer
  ReDim levelArr(1 To lastRow)
  

• 检查有没有引用不存在的工作表，比如代码里写Sheets("Sheet1")的话，要么确认这个表存在，要么直接用ActiveSheet对应当前操作的表。

二、修正最后一行分组归属错误 #

这是分组层级判断的逻辑有问题，最后一行没正确触发上层分组闭合，反而被塞进了下层分组，调整这几点：

• 遍历完所有行后，强制闭合剩下的未结束分组，比如在循环结束后加这段代码：

  Dim currentLevel As Integer
  currentLevel = levelArr(lastRow)
  For i = currentLevel To 2 Step -1
      Rows(lastRow).Group
  Next i
  

• 修正层级对比逻辑，每一行处理前先判断和上一行的层级差，如果当前层级更低，先把上一行的分组闭合再处理当前行：

  For i = 3 To lastRow
      If levelArr(i) < levelArr(i-1) Then
          Rows(i - levelArr(i-1) + levelArr(i) To i - 1).Group
      End If
  Next i
  

• 确认分组方向设置正确，确保是行分组，别搞成列分组，加上这句：

  ActiveSheet.Outline.SummaryRow = xlAbove ' 汇总行放在分组上方，符合常规分级逻辑
  

内容的提问来源于stack exchange，提问作者Rahul Korpu