1、添加控件按钮，并修改属性名称“自动插入序号”，并设置为“设计模式”
3、添加代码如下：Private Sub CommandButton1_Click()Dim xhDim ixh = 1For 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 IfNext iEnd Sub
