成绩处理 根据班级对成绩分类 之根据班级新建工作表

Sub ShtAdd()    '根据班级新建不同的工作表    Dim i As Integer, sht As Worksheet    Dim j As Integer    Dim have As Boolean            i = 2 '第一条记录的行号为2    Set sht = Worksheets("成绩表")    Do While sht.Cells(i, "C") <> ""                have = False            For j = 1 To Worksheets.Count            If Worksheets(j).Name = sht.Cells(i, "C").Value Then                have = True                Exit For            End If        Next j        If have = False Then            Worksheets.Add after:=Worksheets(Worksheets.Count)             ActiveSheet.Name = sht.Cells(i, "C").Value        End If        i = i + 1    Loop    End Sub