DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER(EĞERSAY(DOLAYLI("A1:A"& BAĞ_DEĞ_DOLU_SAY(DOLAYLI("A1:A1000"))),A1)=1,0,EĞERSAY($A$1:A1,A1))
Sub test()
Dim i, a, say As Integer
Range("B1:B10000").ClearContents
a = [A100000].End(3).Row
For i = 1 To a - 1
If Cells(i, 2) = "" Then
say = 0
For j = i + 1 To a
If Cells(i, 1) = Cells(j, 1) Then
say = say + 1
If Cells(i, 2) = "" Then
Cells(i, 2) = say
End If
Cells(j, 2) = say + 1
End If
Next j
End If
Next i
For i = 1 To a
If Cells(i, 2) = "" Then
Cells(i, 2) = 0
End If
Next i
End Sub