Aynı isim listesi

[muratgunay48]

Arkadaşlar, sayın hocalarım, örnek dosyada, sayfada A1:C22 arasında isimler var. Kaç tane olduğu önemli değil. F1'den itibaren geçen isimleri nasıl yazdırabilirim. Benzersiz ile denedim olmadı. F1'den itibaren
MURAT
AHMET
MEHMET
ALİ
AYŞE
ZEYNEP
Yazacak
Teşekkür ederim.
Saygılarımla.

 

[mustafa1205]

Örnek dosyayı yüklemeyi unuttunuz sanırım. Tam anlaşılmıyor

 

[Muhammet Okumuş]

Sub BenzersizVerileriAltAltaYaz()
Dim veri As Variant
Dim dict As Object
Dim i As Long, j As Long
Dim k As Long

Set dict = CreateObject("Scripting.Dictionary")

veri = Range("A1:C22").Value

'Benzersiz değerleri topla
For i = 1 To UBound(veri, 1)
For j = 1 To UBound(veri, 2)
If Not IsEmpty(veri(i, j)) Then
If Not dict.exists(veri(i, j)) Then
dict.Add veri(i, j), Nothing
End If
End If
Next j
Next i

'F sütununa alt alta yaz
k = 1
For Each anahtar In dict.keys
Cells(k, "F").Value = anahtar
k = k + 1
Next anahtar
End Sub

Chatgpt

 

[muratgunay48]

Örnek dosyayı yüklemeyi unuttunuz sanırım. Tam anlaşılmıyor

Hocam unutmuşum özür dilerim.

 

[Korhan Ayhan]

Deneyiniz.

=BENZERSİZ(SÜTUNA(A1:C22))

 

[muratgunay48]

Deneyiniz.

=BENZERSİZ(SÜTUNA(A1:C22))

Hocam tek kelime. Olağanüstü. Emeğinize sağlık.
Ben
=BENZERSİZ(SÜTUN(A1:C22))
Şeklinde yazmıştım.

 

[Korhan Ayhan]

Hocam tek kelime. Olağanüstü. Emeğinize sağlık.

Ben değil EXCEL olağanüstü... Ben sadece aracıyım...

 

[ümit bektas]

F2 hücresine aşağıdaki formülü yazın:
=TRANSPOSE(FILTERXML("<t><s>"&SUBSTITUTE(F1,",","</s><s>")&"</s></t>","//s[not(.=preceding::s)]"))