Soru Aynı hücrede tekrarlayan verileri teke düşürme

[SATYON]

Merhaba,

Aynı hücre içinde tekrarlayan verilerim var. örneğin a1 hücresinde stok kodu b1 hücresinde de bu stoğu sattığım ülkeler yazıyor. Yani a1 hücresinde 15062 b1 hücresinde Almanya Almanya Almanya yazıyor. Ben b1 hücresinde sadece 1 kez Almanya yazmasını istiyorum. yardımcı olur musunuz. teşekkürler.

 

[vein03051976]

Merhaba

C1 hücresine yazıp denermisiniz.

=SOLDAN(B1;MBUL(" ";B1)-1)

 

[uzmanamele]

Merhaba

Verileriniz, 'Almanya Almanya Almanya' şeklinde mi 'Almanya Almanya Almanya Fransa' şeklinde mi bilemiyoruz.
Deneyiniz.

=SOLDAN(B1;MBUL(" ";B1;1)-1)&" "&KIRP(YERİNEKOY(B1;SOLDAN(B1;MBUL(" ";B1;1)-1);""))

 

[Korhan Ayhan]

İnceleyiniz.

Hücre içinde bir den fazla tekrarlanan kelimeleri çıkartmak

Herkese Merhaba Kolay Gelsin, Bir hücre içerisinde aynı kelimeden birden fazla varsa tekrarlananları alt örnekteki gibi tek hale nasıl getire biliriz. Not: Sadece Metin içerikli işlemler için gerekli, Sayısal değerler olduğu gibi kalmasını istiyoruz. Bu konuda yardımcı ola bilirmisiniz.

www.excel.web.tr

 

[SATYON]

Merhaba

Verileriniz, 'Almanya Almanya Almanya' şeklinde mi 'Almanya Almanya Almanya Fransa' şeklinde mi bilemiyoruz.
Deneyiniz.

=SOLDAN(B1;MBUL(" ";B1;1)-1)&" "&KIRP(YERİNEKOY(B1;SOLDAN(B1;MBUL(" ";B1;1)-1);""))

Almanya GÜNEY AFRİKA Almanya Şeklinde olan da var. Almanya Almanya Almanya şeklinde olan da var. Sizin formülünüzü girdiğimde çok fazla argüman girdiniz uyarısı veriyor.

 

[SATYON]

Merhaba

Verileriniz, 'Almanya Almanya Almanya' şeklinde mi 'Almanya Almanya Almanya Fransa' şeklinde mi bilemiyoruz.
Deneyiniz.

=SOLDAN(B1;MBUL(" ";B1;1)-1)&" "&KIRP(YERİNEKOY(B1;SOLDAN(B1;MBUL(" ";B1;1)-1);""))

Bu arada ülkeler arasında space değil shift enter var. çünkü bu listeyi de başka bir makro ile oluşturdum.

 

[uzmanamele]

Merhaba

Korhan bey ve Veysel beyin kodları ile örnek dosya hazırladım.
İnceleyiniz.

 

[SATYON]

İnceleyiniz.

Hücre içinde bir den fazla tekrarlanan kelimeleri çıkartmak

Herkese Merhaba Kolay Gelsin, Bir hücre içerisinde aynı kelimeden birden fazla varsa tekrarlananları alt örnekteki gibi tek hale nasıl getire biliriz. Not: Sadece Metin içerikli işlemler için gerekli, Sayısal değerler olduğu gibi kalmasını istiyoruz. Bu konuda yardımcı ola bilirmisiniz.

www.excel.web.tr

ÇÖZÜLDÜ TEŞEKKÜR EDERİM.

 

[SATYON]

Merhaba

Korhan bey ve Veysel beyin kodları ile örnek dosya hazırladım.
İnceleyiniz.

ÇÖZÜLDÜ TEŞEKKÜR EDERİM.

 

[SATYON]

Merhaba

C1 hücresine yazıp denermisiniz.

=SOLDAN(B1;MBUL(" ";B1)-1)

ÇÖZÜLDÜ TEŞEKKÜR EDERİM.

 

[uzmanamele]

Merhaba

Ben de Metni Sütunlara dönüştür esası ile çalışan basit bir makro yazdım.
Alternatif olsun.

Sub TekrarEdenMetin()
Rem metni sütunlara dönüştür
ssat = Range("B1048576").End(3).Row
Range("C2:AK" & ssat).ClearContents
    
    Range("B2:B" & ssat).Select
    Selection.Copy
    Range("D2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("D2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False
        
Rem tekrar eden metinleri ele
For i = 2 To Range("B1048576").End(3).Row
For j = 4 To Range("XFD" & i).End(1).Column
If Cells(i, j) <> Cells(i, j + 1) Then
Text = Text & " " & Cells(i, j)
End If
Next
Cells(i, "C") = Text
Text = Empty
Next

Rem Yardımcı tabloyu sil
Range("D2:K" & ssat).ClearContents

End Sub

 

[SATYON]

Merhaba

Ben de Metni Sütunlara dönüştür esası ile çalışan basit bir makro yazdım.
Alternatif olsun.

Sub TekrarEdenMetin()
Rem metni sütunlara dönüştür
ssat = Range("B1048576").End(3).Row
Range("C2:AK" & ssat).ClearContents
   
    Range("B2:B" & ssat).Select
    Selection.Copy
    Range("D2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("D2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False
       
Rem tekrar eden metinleri ele
For i = 2 To Range("B1048576").End(3).Row
For j = 4 To Range("XFD" & i).End(1).Column
If Cells(i, j) <> Cells(i, j + 1) Then
Text = Text & " " & Cells(i, j)
End If
Next
Cells(i, "C") = Text
Text = Empty
Next

Rem Yardımcı tabloyu sil
Range("D2:K" & ssat).ClearContents

End Sub

teşekkürler