Find And Replace With Sequence Numbers

[yinkajewole]

using vba, how can i replace a specific text a sequencial number?
for instance, i have
j
j
j
the replacement should be
1
2
3

 

[DanteAmor]

Try this

Sub sequence()
    For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        Range("A" & i) = WorksheetFunction.CountIf(Range("A2:A" & i), Range("A" & i))
    Next
End Sub