VBA给excel表同一张表不同类进行自动插入序号在日常工作中，经常遇到同一张釉涑杵抑表里出现不同种类行记录，但每个类又需要进行序号插入。比如常见的分班时芟坳葩津，同一张表中有20多个班，又要对20多个班的学生前加入序号，手动拉序号非常麻烦，如果用VBA按钮一键就可以自动完成。
工具/原料
Excel2007,win7
学生样表
方法/步骤
1、添加控件按钮，并修改属性名称“自动插入序号”，并设置为“设计模式”
2、双击按钮，打开VB编辑器。
3、添加代码如下：PrivateSubCommandBu隋茚粟胫tton1_Click()DimxhDimixh=1Fori=1T泠贾高框o50‘sheets(1)是表示当前工作薄第一个工作表，cells是表单元格If(Sheets(1).Cells(i+3,3)<>Sheets(1).Cells(i+2,3))Then'当前单元格与上一单元格不同时xh=1Elsexh=xh+1EndIf'开始插入序号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")ElseExitFor'如果发现没有班级新记录了，就退出循环EndIfNextiEndSub
4、返回视图模式，取消“设计模式”，点击“自动插入序号”。样例下载：https://pan.baidu.com/s/1RLFXaKgfMlhySixI5-zREg
