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

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