Sütundaki aynı verilerin kaçıncı sırada olduklarını bulmak

[memodino]

Aynı sütunda birden fazla aynı bilgi mevcut her birinin altında değişik kodlar var. Aynı bilgilerin kaçıncı satırda olduğunu nasıl bulabilirim
ek de excel tablosu mevcut.

 

[Orion1]

Dosyanız ektedir.

Sub benzerler_59()
Dim sat As Long, sonsat As Long, k As Range, adrs As String
Range("C:D").ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
sat = 2
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("B1:B" & i), Cells(i, "B").Value) = 1 Then
        If WorksheetFunction.CountIf(Range("B1:B" & sonsat), Cells(i, "B").Value) > 1 Then
            Set k = Range("B1:B" & sonsat).Find(Cells(i, "B").Value, , xlValues, xlWhole)
            If Not k Is Nothing Then
                adrs = k.Address
                Do
                    Cells(sat, "C").Value = k.Value
                    Cells(sat, "D").Value = k.Address
                    Set k = Range("B1:B" & sonsat).FindNext(k)
                    sat = sat + 1
                Loop While adrs <> k.Address And Not k Is Nothing
            End If
        End If
    End If
Next
MsgBox "İşlem bitti"
End Sub

 

[çıtır]

Formülle oluşturulmuş çözüm.