mkrk
SelamlarAynı hücrede birbirini tekrar eden metinler var bunu sadeleştirmenin formülü/yöntemi var mıdır?Örneğin:A1 hücresinde "ali; ali; ali; ali; fatma" yazıyor bunu "ali; fatma" haline nasıl getirebilirim. Bazı hücrelerde 80'dan fazla tekrar var. Ve bazılarında 3-4 farklı metin var. Bu sebepten me
Selamlar
Aynı hücrede birbirini tekrar eden metinler var bunu sadeleştirmenin formülü/yöntemi var mıdır?
Örneğin:
A1 hücresinde "ali; ali; ali; ali; fatma" yazıyor bunu "ali; fatma" haline nasıl getirebilirim. Bazı hücrelerde 80'dan fazla tekrar var. Ve bazılarında 3-4 farklı metin var. Bu sebepten metinleri sütunlara dönüştür işlevi pek kullanıma uygun değil.
Teşekkürler.
Aynı hücrede birbirini tekrar eden metinler var bunu sadeleştirmenin formülü/yöntemi var mıdır?
Örneğin:
A1 hücresinde "ali; ali; ali; ali; fatma" yazıyor bunu "ali; fatma" haline nasıl getirebilirim. Bazı hücrelerde 80'dan fazla tekrar var. Ve bazılarında 3-4 farklı metin var. Bu sebepten metinleri sütunlara dönüştür işlevi pek kullanıma uygun değil.
Teşekkürler.
0
veri kısmında yinelenenleri tekrarla kısmı var, oradan kolayca yapabilirsiniz
0
Yinenelenleri kaldır işkevinden bahsediyorsunuz sanırım. Bu çalışmaz zira farklı hücrelerden bahsetmiyorum. Aynı hücre içinde tekrar edenleri kaldırmam gerekiyor.
0
once su modulu ekleyin;
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
sonra bos bir hucreye sunu yazin
=RemoveDupes2(A1;";")
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
sonra bos bir hucreye sunu yazin
=RemoveDupes2(A1;";")
0
replace ederek yapılabilir sanki. ztrl+f'teki replace'ten bahsediyorum. türkçesi değiştir olabilir.
"ali; ali; "'yi "ali; "'ye değiştirirsiniz. bir kaç iterasyonda sadece elinizde ali kalır.
"ali; ali; "'yi "ali; "'ye değiştirirsiniz. bir kaç iterasyonda sadece elinizde ali kalır.
0
eğer tüm veriler a kolonundaysa
1.metni sütunlara dönüştür.
2. tüm beriyi kopyala ve farklı bir sheet’e transpose ederek yapıştır.
3. kolonları tek tek seçerek yinelenenleri kaldır de
işlem tamam
maks 2. dakika
1.metni sütunlara dönüştür.
2. tüm beriyi kopyala ve farklı bir sheet’e transpose ederek yapıştır.
3. kolonları tek tek seçerek yinelenenleri kaldır de
işlem tamam
maks 2. dakika
0
