自动分级

Function AutoClassify() '自动分级
  
    Dim j As Integer
    Dim i As Long
    Dim rowNumber As Variant
   
    ActiveSheet.UsedRange.ClearOutline

    Dim LastLevel, level, col As Integer
    rowNumber = ActiveSheet.UsedRange.Rows.Count
   
     For i = 3 To rowNumber '从第3行开始组合.根据传入行数分级组合
        If Cells(i, 1) = "" Then '通过第一行为空认为是function，组合
            Rows(i).Group
        End If

     Next i
    
     '最后只显示第一级
     ActiveSheet.Outline.ShowLevels RowLevels:=1
     '分级加号放在上面
     With ActiveSheet.Outline
        .SummaryRow = xlAbove
     End With

End Function