标签：Vba Rows End s2 s1 Excel Next 分级 LastRow

Sub classification()

Dim LastRow, max_level As Integer
    Dim i, j, m, a, b As Integer
    Dim st1, st2, s1, s2 As Integer
    On Error Resume Next
    Application.ScreenUpdating = False '运行时关闭屏幕更新。
    LastRow = ActiveSheet.UsedRange.Rows.Count
    max_level = 6
    s1 = LastRow
    st1 = LastRow
    For a = max_level To 1 Step -1
        If a > 2 Then
            st1 = LastRow
            s1 = LastRow
            For b = LastRow To 1 Step -1
             If Range("A" & b) < a - 1 Then
                 s1 = b - 1
               ElseIf Range("A" & b) = a - 1 Then
                    s2 = b + 1
                    If s1 - s2 > 0 Then
                        Rows(s1 & ":" & s2).Select
                        Selection.Rows.Group
                    End If
                    s1 = b - 1
                End If
              
            Next b
        End If
    Next a
  ActiveSheet.Outline.ShowLevels RowLevels:=1 'Minimize all the groups 最小化所有组
    ActiveSheet.Outline.SummaryRow = xlAbove '将+放在每个组的第一行旁边，而不是底部的应用程序?
    Application.ScreenUpdating = True 'Turns on screen updating when done.

                       
End Sub

作用：根据序号  对大量数据进行分级，分类。

标签：Vba,Rows,End,s2,s1,Excel,Next,分级,LastRow
来源： https://blog.csdn.net/baidu_38131614/article/details/104863953

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。