Question

Excel 2010 VBA实现序号自动排列，求高手回答，急，谢谢！有图片。

A组序号与前序号自动-1，填写下一行时序号自动生成，在线等，谢谢。

Answer 1

=if(B:B="","",row()-1)
公式作用就是所在行的B列，如果填写了内容，这一格就填写行号-1的内容
提前向下拖一段，那么这一段以后就不用管了

Answer 2

A2中填入1
A3=if(B3<>"",A2+1,"")
填充A列公式后，
按顺序在B列中填入任意数据，
A列自动显示序号。

Answer 3

既然你要的是vba，那用法我就不讲了，这是工作表事件
代码如下
Private Sub worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Column <> 2 Then Exit Sub
If Target.Row = 2 Then
Cells(2, 1) = 1
Else
Cells(Target.Row, 1) = Cells(Target.Row - 1, 1) + 1
End If
End Sub