1、添加控件按钮，并修改属性名称“自动插入序号”，并设置为“设计模式”
2、双击按钮，打开VB编辑器。
3、添加代码如下：
Private Sub CommandButton1_Click()
Dim xh
Dim i
xh = 1
For i = 1 To 50
‘sheets(1)是表示当前工作薄第一个工作表，cells是表单元格
If (Sheets(1).Cells(i + 3, 3) <> Sheets(1).Cells(i + 2, 3)) Then '当前单元格与上一单元格不同时
xh = 1
Else
xh = xh + 1
End If
'开始插入序号
If (Len(Sheets(1).Cells(i + 3, 3)) > 0) Then '如果第三列班级存在，就在前面插入序
Sheets(1).Cells(i + 3, 1) = xh
'Worksheets("Sheet1").Range("A5").Value
'sheets(1).range("A1")
Else
Exit For '如果发现没有班级新记录了，就退出循环
End If
Next i
End Sub
4、返回视图模式，取消“设计模式”，点击“自动插入序号”。
样例下载：https://pan.baidu.com/s/1RLFXaKgfMlhySixI5-zREg
