Tablodaki farklı değerleri suzme

[komodor_82]

Tablo da yer alan farklı değerleri süzebilecek bir formül oluşturulmasinda yardımcı olabilirseniz müteşekkir olurum.

Sütunda yer alan farklı değerleri getirebiliyorum. Amacım birden fazla sütün da yer alan tablo değerlerini süzmek.
Örnek Tablo aşşağıdaki gibi Herbir veri ayrı bir hücrede 3 sütunda.
A B A
B C A
B C B
A A C
C B A
B A C

Benzerseniz ,
A
B
C

Olarak süzme formülü oluşturulabilinir mi?

 

[komodor_82]

Bahsettiğim gibi sutunlar da yer alan değerleri süzebiliyorum . İhtiyacım olan tablodaki tüm farklı değerleri süzebilecek bir formül.

Örnek dosya linki aşağıda yeralmakta . İnceleye bilirseniz sevinirim.

https://s4.dosya.tc/server6/rispp8/Benzersiz.xlsx.html

 

[çıtır]

J2 Hücresine kopyalayınız.Aşağı doğru çoğaltınız.Dizi formülü.

=EĞERHATA(EĞERHATA(EĞERHATA(İNDİS($A$3:$A$300;KAÇINCI(;EĞER($A$3:$A$300<>"";EĞERSAY($J$1:$J1;$A$3:$A$300));0));İNDİS($B$3:$B$300;KAÇINCI(;EĞER($B$3:$B$300<>"";EĞERSAY($J$1:$J1;$B$3:$B$300));0)));İNDİS($C$3:$C$300;KAÇINCI(;EĞER($C$3:$C$300<>"";EĞERSAY($J$1:$J1;$C$3:$C$300));0)));"")

 

[Orion1]

Kod ile, linkteki dosyayı inceleyiniz.;
DOSYAYI INDIR

Sub benzersiz_59()
Dim hcr As Range, sonsat As Long, z As Object
Range("J2:J" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Set z = CreateObject("scripting.dictionary")
For Each hcr In Range("A3:C" & sonsat)
    If Not z.exists(hcr.Value) Then
        z.Add hcr.Value, Nothing
    End If
Next
Range("J2").Resize(z.Count, 1) = Application.Transpose(z.keys)
MsgBox "Bitti"
End Sub

 

[komodor_82]

Teşekkür ederim.emeginize sağlık.

 

[komodor_82]

J2 Hücresine kopyalayınız.Aşağı doğru çoğaltınız.Dizi formülü.

=EĞERHATA(EĞERHATA(EĞERHATA(İNDİS($A$3:$A$300;KAÇINCI(;EĞER($A$3:$A$300<>"";EĞERSAY($J$1:$J1;$A$3:$A$300));0));İNDİS($B$3:$B$300;KAÇINCI(;EĞER($B$3:$B$300<>"";EĞERSAY($J$1:$J1;$B$3:$B$300));0)));İNDİS($C$3:$C$300;KAÇINCI(;EĞER($C$3:$C$300<>"";EĞERSAY($J$1:$J1;$C$3:$C$300));0)));"")

İlave sutun eklemek istediğimde nasıl pratik bir yol izleyebilirim.