這是在公司順手幫同事寫的功能，是用來在A欄記錄B欄輸入的時間順序。例如第一筆資料新增在B欄的B5，同時A5就會自動產生1這個值。接著如果第二筆資料新增在B3這格，A3就會自動填入2。以此類推。
一開始覺得這種動態產生的值，應該沒辦法單純用公式來做到。不過後來想一想，似乎是可以的！但仍不若用VBA來得精簡快速易懂。所以就這樣吧。
因為同事說到在Goolge查了半天都找不到解法，那我就來提供我的解法好了：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastBcol As Range
With Target
n = Application.WorksheetFunction.CountA(Range(“B:B”))
If .Column = 2 Then
Cells(Target.Row, 1) = n
End If
End With
End Sub
