VBA给excel表同一张表不同类进行自动插入序号

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