Note: The other languages of the website are Google-translated. Back to English

Bir hücrenin dizesindeki yinelenen karakterler veya sözcükler nasıl kaldırılır?

Her hücrede yinelenen karakterler veya sözcükler olduğunu ve yinelenenleri kaldırmak ve yalnızca benzersiz karakterler veya sözcükler bırakmak istediğinizi varsayarsak. Bu sorunu Excel'de nasıl çözebilirsin?

Kullanıcı Tanımlı İşlev ile metin dizesinin yinelenen karakterlerini kaldırın

Kullanıcı Tanımlı İşlev ile noktalama işaretiyle ayrılmış yinelenen kelimeleri kaldırın


ok mavi sağ balon Kullanıcı Tanımlı İşlev ile metin dizesinin yinelenen karakterlerini kaldırın

Bir metin dizesi listeniz varsa, şimdi, aşağıda gösterilen ekran görüntüsü gibi yinelenen karakterleri kaldırmanız gerekir. Burada, bununla başa çıkmak için bir VBA kodu hakkında konuşabilirim.

doc-remove-yinelenen-karakterler-1

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Bir hücredeki metin dizesinin yinelenen karakterlerini kaldırın

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupes1 = xOutValue
End Function

3. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün ve bu formülü girin = removeupes1 (A2) (A2 verilerinizin yanı sıra boş bir hücreye kopyalarını kaldırmak istediğiniz veri hücresidir, ekran görüntüsüne bakın:

doc-remove-yinelenen-karakterler-1

4. Ve sonra doldurma tutamacını bu formülü uygulamak istediğiniz aralık hücrelerine sürükleyin, tüm yinelenen karakterler her hücreden hemen kaldırılır.

doc-remove-yinelenen-karakterler-1


ok mavi sağ balon Kullanıcı Tanımlı İşlev ile noktalama işaretiyle ayrılmış yinelenen kelimeleri kaldırın

Bir hücrede belirli noktalama işaretleriyle ayrılmış bazı kelimeler varsa, yinelenen kelimeleri de istediğiniz gibi kaldırabilirsiniz. Lütfen aşağıdaki adımları izleyin:

1. basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Bir hücrenin noktalama işaretleriyle ayrılmış yinelenen kelimeleri kaldırın

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    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

3. Ardından bu kodu kaydedip kapatın, çalışma sayfasına dönün ve bu formülü girin = RemoveDupes2 (A2, ",") verilerinizin yanındaki boş bir hücreye, ekran görüntüsüne bakın:

doc-remove-yinelenen-karakterler-1

4. Ardından formülü gerekli hücrelere kopyalayın ve tüm yinelenen sözcükler her hücreden kaldırılır. Ekran görüntüsüne bakın:

doc-remove-yinelenen-karakterler-1

not: Yukarıdaki formülde, A2 kullanmak istediğiniz hücreyi belirtir ve virgül (,) bir hücredeki sözcükleri ayıran noktalama işaretini belirtir; ihtiyacınıza göre başka noktalamalarla değiştirebilirsiniz.


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (66)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hala kırıldı... aslında hiçbir şey göstermiyor. İşte hücre verilerim: 27000,Temel,Ürünler,Malzemeler,Kimden,Ahşap,Taş,Toprak,Ham,Malzemeler,27100,Temel,Orman,Ürünler,Genel,27110,Temel,Orman,Ürünler,Kereste Fabrikası,Ürünler,27120,Temel ,Orman,Ürünler,Ahşap,Kültür,27200,Cam Açıkça orada bazı kopyalar var. Hücreyi boş bırakır. Düşünceler?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kusura bakma, ben aptalım. Yalnızca sözcüklerin çekilmesini istediğim için, RemoveDupes modülünü yeniden adlandırdım, ancak daha sonra kodda RemoveDupes'ı değiştirmedim. Sabit, çekiçle kendini tokatlayan....
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ve RemoveDupes'ı ConCat (VBA iyiliği, CON(I-SUCK-BECAUSE-I'M-MICROSOFT)CATENATE) ile şu şekilde birleştirdim: =RemoveDupes(ConCat(",",G495:G502),",") yani hücrelerimi içeri çekti ve sonra tüm kopyaları sildi. RemoveDupes için teşekkürler, işte ConCat: Function ConCat(Delimiter As Variant, ParamArray CellRanges() As Variant) As String Dim Cell As Range, Area As Variant IsMissing(Sınırlayıcı) Sonra Sınırlayıcı = "" CellRanges'daki Her Alan İçin If TypeName( Area) = "Range" Sonra Alandaki Her Hücre İçin Len(Cell.Value) ise ConCat = ConCat & Delimiter & Cell.Value Next Else ConCat = ConCat & Sınırlayıcı & Alan Sonu Eğer Sonraki ConCat = Mid(ConCat, Len(Sınırlayıcı) ) + 1) Son İşlev
Bu yorum sitedeki moderatör tarafından en aza indirildi
"Kullanıcı Tanımlı İşlev ile noktalama işaretleriyle ayrılmış yinelenen sözcükleri kaldır" çözümünüzü denedim ve bir hücredeki birden çok sözcük için harika çalışıyor AMA sorunumu tamamen çözmüyor. Birden çok değeri olan bir hücrem var ve birden çok değere sahip başka bir hücreyle karşılaştırmak istiyorum ve ardından iki hücre arasında bulunan kopyaları kaldırmasını istiyorum. Bunu yapmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
burada da aynısı lütfen yardım edin
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu konu hala yaşıyor mu Bu VBA işleviyle ilgili bazı bilgileri çok takdir ediyorum .. sorularım kodla ilgili, burada sınırlayıcı olarak belirli noktalama işaretlerini bulması için talimat vermem gerekiyorsa .. noktalama işareti?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tavsiyen harika! Yaklaşık 58,400 dakikada 2 kaydı sıraladım ve bir haftalık (veya daha fazla) çalışmadan tasarruf ettim. Kopyalarım bu örneği " V&O Liquid Fuel Lantern 13-1 / 2in blk fuel lantern " örneğini bu " V&O Liquid Fuel Lantern 13-1 / 2in blk " haline getirmek biraz daha zordu teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, lütfen yardımınıza ihtiyacım var, kodunu denedim ama işe yaramadı, belki numaralarım olduğu için virgülle ayrılmış yinelenen telefon numaralarım var Lütfen bana ne yapacağımı söyleyin Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
burada da aynısı lütfen yardım edin
Bu yorum sitedeki moderatör tarafından en aza indirildi
PARLAK teşekkür ederim! teşekkür ederim! teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika. Teşekkürler!.....
Bu yorum sitedeki moderatör tarafından en aza indirildi
hey dostum yardımına ihtiyacım var Kopyayı çıkarmak istersem ne yapmalıyım? A1'de (asdfghjiklkk) Yani k kopya karakter A2 istiyorum (k) ne yapmalıyım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Gerisi kopyalanmazken yinelenen tutmak istediğim belirli bir kelime varsa işlevi ayarlamak mümkün müdür?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu rehber için çok teşekkür ederim, beni bir sürü işten kurtardı! :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu çok yardımcı . Denedim ve istisnai olarak benim için çalışıyor. Harika !!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu, tek bir hücrede yinelenen ifadeleri bulmak için harika ve basit bir çözüm, sorunuma bir yanıt ararken bulduğum uzun soluklu makro çözümlerin bazılarından çok daha kolay, teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kod için teşekkürler - bana çok zaman kazandırdı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tek bir hücrede 1. aşağıda göster gibi verilerim var ve 2. beğenmek istiyorum. 1. ZERPUR,MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653, ZERPUR(16),MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653 Buna ihtiyacım var gibi: - ZERPUR,MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653 Teşekkürler ve Saygılar Hanuman Singh 9034509168
Bu yorum sitedeki moderatör tarafından en aza indirildi
bana nasıl olduğunu öğret? onu da bilmek lazım..
Bu yorum sitedeki moderatör tarafından en aza indirildi
1. Küçük harfin konumunu öğrenebilir miyiz


Sınav - RAMSHsJHSAhsjDDD ------ 1. küçük harfin konumunu formül = s ile bilmek istiyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Meharban,
İlk küçük harfin konumunu almak için aşağıdaki dizi formülünü uygulayabilirsiniz:
=MATCH(1,IF(ABS(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))-109.5)<=12.5,1),0)
Lütfen Ctrl + Shift + Enter tuşlarına birlikte basmayı unutmayın.


Umarım size yardımcı olabilir, teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba skyyang

düzgün çalışıyor .....
aslında ben de aynı şeyi istiyordum..

çok teşekkürler !!


Meharban şarkıcı dostum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Eşleşen dize kopyaları nasıl kaldırılır ... lütfen bana söyleyebilir misiniz?


Saygılarımızla,
Kiran
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Kiran,
Sorununuza bir örnek verebilir misiniz? Veya bir ek resmi ekleyebilirsiniz.
Cevabınızı dört gözle bekliyorum!
Bu yorum sitedeki moderatör tarafından en aza indirildi
çok teşekkürler bana daha çok yardımcı oluyor Ancak veri kümem için biraz daha spesifik istiyorum.
İki Sütun verim var. Kimlik ve Bilgi. Bilgi Sütununda, "Kant-, Udp-, Akr- vb" gibi hücre başına proje kimliği tekrarlanır. Veri kümem için proje_kimliği 15'ten fazla ve düzeltildi. Bu yüzden tekrarlanan_id'yi hücreden silmek istiyorum, ancak ilkini tutmak istiyorum.
Örnek: Kant-526 (0.0287),Kant-527 (0.0113),Kant-528 (0.0262) /// Kant-526 (0.0287),527 (0.0113),528 (0.0262),
Kant-543 (0.0685),Kant-544 (0.0685),Udp-097 (0.0141) /// Kant-543 (0.0685),544 (0.0685),Udp-097 (0.0141)

Örnek resim buraya eklenmiştir. Bunun için herhangi bir çözüm var mı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba İmran,
Sorununuzu çözemediğim için üzgünüm, iyi bir fikri olan varsa lütfen buraya yorum yapın.
Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kendi başıma bir çözüm buldum. Burada SUBSTITUTE formülünü kullandım, ancak verilerim için çok büyük. bu yüzden doğru sonucu almak için iki veya üç kez tekrarlayın.

=İKAME(YEDEK("Kant-","",2), ("Kant-","",2)
Burada, ikinci Kant değiştirme için 1. 2 ve sonraki her Kant çıkarma için sadece ("Kant-","",2) fazladan ekleyin. Benim için çalışıyor. Ama iyi bir VBA'yı tercih ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod için teşekkürler.

Lütfen bana yardım edebilir misin? Bir hücrenin noktalama işaretleriyle ayrılmış sözcükleri kaldırmak için makro işlevini kullanıyorum, ancak verilerim sözcükler değil, aslında sözcük öbekleri. "KTE, KTO, KTW, KTO" yerine aslında "fatura hazırla, e-postalarımı gözden geçir, sözleşmeleri güncelle, e-postalarımı gözden geçir" gibi kısa açıklamalar gibi.

Sözcükler yerine yinelenen ifadeleri kaldırmak için VBA'yı güncellemek mümkün müdür?

Çok teşekkürler, bu gerçekten çok yardımcı olacak.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Alonso,
Yinelenen ifadeyi kaldırmak için aşağıdaki Kullanıcı Tanımlı İşlev size yardımcı olabilir, lütfen deneyin.

İşlev RemoveDuplicateValue(xStr As String, xDelim As String) As String
xDeğeri karart
Eğer (Len(xDelim) > 0) Ve (Len(Trim(xStr)) > 0) O zaman
CreateObject("Scripting.Dictionary") ile
Split(xStr, xDelim)'deki Her xValue İçin
Eğer Trim(xValue) <> "" Ve Değilse .exists(Trim(xValue)) Sonra .Trim(xValue) Ekle, Hiçbir Şey
Sonraki
.Count > 0 ise RemoveDuplicateValue = Join(.keys, xDelim)
İle bitmek
başka
RemoveDuplicateValue = xStr
Eğer son
son İşlevi

Ardından şu formülü uygulayın: =RemoveDuplicateValue(A2,","), ayırıcıyı kendinize göre değiştirin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba skyyang,



Aşağıdaki hücreyle ilgili yardım almayı umuyorum:

PR-PUERTO RİKO; ABD-Birleşik Devletler; ABD-Birleşik Devletler

Yükleme aracım kopyalara izin vermeyeceğinden, yinelenen ABD-Birleşik Devletler'in kaldırılmasına ihtiyacım var.



Yukarıdaki VBA'yı kullandım ve formül sınırlayıcımı ";" ile değiştirdim. Kısa çizgi bunun bir sorun olmasına neden oluyor mu? #NAME döndürüyor mu? formülü çalıştırdığımda. Makrolarda/VBA'da yeniyim ancak dosyanın Makro Etkin dosya olarak kaydedildiğinden emin oldum. Bunları gerçekten T'ye kadar takip etmeye çalıştım.


Tamamlamam gereken başka bir projeye yardımcı olduğu için zaten harika olan tüm bu bilgiler için teşekkür ederim ve ek her şey büyük beğeni topluyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Michael,
Bir hücreden tüm yinelenen ifadeleri kaldırmak ve yalnızca benzersiz olanları bırakmak mı istiyorsunuz?
Cevabınızı dört gözle bekleyin!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aradığım çıktı bu:

Güncel: PR-PUERTO RIKO; ABD-Birleşik Devletler; ABD-Birleşik Devletler
İstenen: PR-PUERTO RIKO; ABD-Birleşik Devletler

Umarım bu mantıklıdır ve hızlı cevap için çok teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Michael,
Aşağıdaki kodu uygulamanız ve ardından şu formülü kullanmanız yeterlidir: =RemoveDuplicateValue(A2,";"). Lütfen deneyin, umarım size yardımcı olabilir!

İşlev RemoveDuplicateValue(xStr As String, xDelim As String) As String
xDeğeri karart
Eğer (Len(xDelim) > 0) Ve (Len(Trim(xStr)) > 0) O zaman
CreateObject("Scripting.Dictionary") ile
Split(xStr, xDelim)'deki Her xValue İçin
Eğer Trim(xValue) <> "" Ve Değilse .exists(Trim(xValue)) Sonra .Trim(xValue) Ekle, Hiçbir Şey
Sonraki
.Count > 0 ise RemoveDuplicateValue = Join(.keys, xDelim)
İle bitmek
başka
RemoveDuplicateValue = xStr
Eğer son
son İşlevi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkür ederim. Cevabınız benim bir fincan kahvemden daha hoş karşılandı!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba bu gerçekten yararlı
Ama "NO TO:" dan sonraki tüm kelimeleri kaldırmak istiyorum.

örneğin: HAYIR: [C11bx1]

HAYIR: [C11bx3] bunun gibi
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır