ban thu cach nay xem sao nha
Dim SrcRng As Range, Arr, i As Long, n As Long
Set SrcRng = Range([A3], [A2000].End(xlUp))
Arr = SrcRng.Value
For i = 1 To UBound(Arr, 1)
If Arr(i, 1) <> "" Then
n = n + 1
Arr(i, 1) = n
End If
Next
SrcRng.Offset().Value = Arr