baidu_38131614的博客

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 '运行时关闭屏幕更新...

Sub classification()Dim LastRow, max_level As Integer Dim slc, j, dele, a, b As Integer On Error Resume Next LastRow = ActiveSheet.UsedRange.Rows.Count For slc = 1 To LastRowLi...