<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>
VBA例10:按输入顺序填序号
佚名