Eşleşeni veren KTF

[EKREM1661]

Değerli Arkadaşlar..! Aşağıya aktarmış olduğum KTF formülü, bir listeden benzersiz olanları veriyor.. Bunu tersine nasıl çeviririz, yani çift olanları verecek.. Ayrıca yan sütuna da karşılığına düşen veriyi almam gerekiyor.. Konuyu dosya üzerinde örneklendirdim.. İyi çalışmalar dileğiyle..

Function Benzersiz(Aralik As Range, i As Integer)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce

If i > ciftolmayan.Count Then
Benzersiz = ""
Else
Benzersiz = ciftolmayan(i)
End If
End Function