怎么在excel中实现自动生成序号,如在B列中输入内容,A列中会自动生成1~n的序号

1。要有人名与班组的对照表2。用VLOOKUP函数：=VLOOKUP(A2,D:E,2,0)假设： A列是要录入的人名；B列是上面的公式； D列是人名，E列是其所在的对应班组。

这个似乎犯不上用VB的吧，VBA也解决得绰绰有余。但使用函数你自己也可以解决得像模像样。

例如A列A2输入1，A3： =IF(B3,A2+1,) ，往下拖到足够或适当，……

1、选定区域，反点，创建列表（解决你插入行时序号就不能生成的问题）再录入函数。
2、如题函数为（在A2中录入：
=if(B2=,,row()-1)
下拉即可。

这种简单的东西，再编曲VBA，没有必要。

公式方案：
A1=COUNTA($B$1:B1) ,向下填充公式。
VBA方案：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 1).Value = Application.Evaluate(counta(b1:b & Target.Row & ))
End If
End Sub

假设序号从A2开始，在A2单元格内输入
=ROW(A1)
下拉填充