<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:按輸入順序填序號
佚名