Aynı kelimelerin yalnız birer tanesini farklı sütuna almak

[Turan61]

merhaba arkadaşlar

sütunda aynı kelimelerden olan hücrelerin birer tanesini farklı bir sütuna almak istiyorum.
mesela örn:

A sütununda alt alta aynı isimden
ADANA
ADANA
ADANA
ADIYAMAN
ADIYAMAN
ADIYAMAN
RİZE
RİZE
RİZE

gibi ekte bir örneğini gönderdim

 

[bzace]

Merhaba,

• A2:A10 hücrelerine verileriniz,
• B2 hücresine formül uygulayıp aşağı doğru sürükleyiniz.

=EĞER(EHATA(KÜÇÜK(
  EĞER(EĞERSAY(B$1:B1;A$2:A$11)=0;
    SATIR(A$1:A$10));1));"";
      İNDİS(A$2:A$11;
    KÜÇÜK(EĞER(EĞERSAY(B$1:B1;A$2:A$11)=0;
  SATIR(A$1:A$10))
;1)))
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Saygılar,
Hay marja!

 

[mustafa1205]

Sayın bzacenin affına sığınarak;

Bu işlemi excelin yinelenenleri kaldır özelliğini kullanarak da yapabilirsiniz.

 

[Erdem Akdemir]

Sayın bzacenin affına sığınarak;

Bu işlemi excelin yinelenenleri kaldır özelliğini kullanarak da yapabilirsiniz.

Yinelenenleri kaldır ile yaparsanız yeni bir tablo kullanmak gerekir. Mevcut tablo ile yapmanın pratik yollarından biri gelişmiş filtre'yi kullanmaktır. Forumda biraz araştırma yaparsanız oldukça fazla örnek bulabilirsiniz. Bunun yanı sıra gelişmiş süzgeç ile formül yada kod kullanmadan sorgular yada şartlı veri çekme işlemlerini yapabilirsiniz, oldukça kullanışlı ama az kullanılan bir excel işlevidir.

 

[Orion1]

Alternatif.
VBA ile.
Dosya ektedir.

Sub mukerre59()
Dim z As Object, liste(), i As Long
Range("B2:B" & Rows.Count).Clear
liste = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), Nothing
    End If
Next i
Erase liste
Range("B2").Resize(z.Count, 1) = Application.Transpose(z.keys)
Set z = Nothing
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Turan61]

Yardımlarınız ve uğraşlarınız için teşekkürler