VBA例10:按输入顺序填序号

<code>    1 	Private Sub Worksheet_Change(ByVal Target As Range)
    2 	'   功能：根据A列的输入内容，在B列对应单元格中自动填充A列输入内容的先后顺序号
    3 	'   思路：使用工作表的change事件，自动完成B列顺序号。因为先后顺序是连续且A列又可能会同时输入，故采用MAX+1作为先后顺序号
    4 	    Dim rng As Range
    5 	
    6 	    '   将B列已使用区域赋值给变量rng
    7 	    Set rng = Range("b2:b" & [B66356].End(xlUp).Row)
    8 	    
    9 	    '   判断A列与Target是否存在交集（即输入内容是否在A列）
   10 	    If Not Intersect([a:a], Target) Is Nothing Then
   11 	        '   如有交集，则Target向右偏移1格，并对其赋值为B列已使用区域的最大值+1
   12 	        Target.Offset(, 1) = Application.WorksheetFunction.Max(rng) + 1
   13 	    End If
   14 	    
   15 	End Sub
/<code>