軟體:EXCEL
版本:2010
Sub 這筆第幾次出現() '220121當COUNTIF法跑不動時的替代方式
Application.ScreenUpdating = 0
For i = 1 To 1048575
If Cells(1 + i, 3 - 1) = "" Then Exit Sub
If Cells(1 + i, 3 - 1) <> Cells(1 + i - 1, 3 - 1) Then
Cells(1 + i, 3) = 1
Else
Cells(1 + i, 3) = Cells(1 + i - 1, 3) + 1
End If
Next
Application.ScreenUpdating = 1
End Sub
想請教，如何使用陣列arr的方式改寫上述程式，使執行效率提升。
謝謝。