Excle自动增长序号

按“ALT+F11”键进入代码编辑
复制以下代码到编辑窗口内：
Private Sub Worksheet_Change(ByVal Target As Range) \'工作表变化事件引发下列程序
Application.EnableEvents = False \'变化事件引发禁止
X0 = ActiveCell.Row \'X0=活动单元格行数
If X0 > 1 Then \'X0在2以上
Cells(X0, 1) = Cells(X0 - 1, 1) + 1 \'X0行=X0-1行+1
Else: Cells(X0, 1) = 1 \'X0为1时=1
End If \'结束条件判断
Do While Cells(X0 + 1, 1) <> "" \'X0+1行非空则执行
Cells(X0 + 1, 1) = Cells(X0, 1) + 1 \'单元格X0+1行=X0行+1
X0 = X0 + 1 \'X0递增执行
Loop \'返回while语句
Application.EnableEvents = True \'变化事件引发开启
End Sub \'结束程序