Excel hücresindeki bir metin dizisindeki yinelenen karakterleri veya kelimeleri nasıl kaldırabilirsiniz?

Diyelim ki her hücrede yinelenen karakterler veya kelimeler var ve bu yinelenenleri kaldırmak ve yalnızca benzersiz karakterler veya kelimeler bırakmak istiyorsunuz. Bu sorunu Excel'de nasıl çözebilirsiniz?

Kullanıcı Tanımlı Fonksiyon ile metin dizisinin yinelenen karakterlerini kaldırma

Kullanıcı Tanımlı Fonksiyon ile noktalama işaretleriyle ayrılmış yinelenen kelimeleri kaldırma

Kullanıcı Tanımlı Fonksiyon ile metin dizisinin yinelenen karakterlerini kaldırma

Eğer bir metin dizisi listesi varsa ve aşağıdaki ekran görüntüsünde gösterildiği gibi yinelenen karakterleri kaldırmak istiyorsanız, bunu ele almak için bir VBA kodundan bahsedebilirim.

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

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module Window yapıştırın.

VBA kodu: Bir hücredeki metin dizisinin yinelenen karakterlerini kaldırma

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ü =removedupes1(A2) (A2, yinelenenleri kaldırmak istediğiniz veri hücresidir) verilerinizin yanındaki boş bir hücreye girin, ekran görüntüsüne bakın:

4. Ardından, bu formülü uygulamak istediğiniz hücrelere kadar doldurma sapmasını sürükleyin, her hücreden tüm yinelenen karakterler hemen kaldırılacaktır.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

Kullanıcı Tanımlı Fonksiyon ile noktalama işaretleriyle ayrılmış yinelenen kelimeleri kaldırma

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

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

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module Window yapıştırın.

VBA kodu: Bir hücrenin noktalama işaretleriyle ayrılmış yinelenen kelimelerini kaldırma

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 geri dönün ve bu formülü =RemoveDupes2(A2,",") verilerinizin yanındaki boş bir hücreye girin, ekran görüntüsüne bakın:

4. Ardından formülü ihtiyaç duyduğunuz hücrelere aşağıya doğru kopyalayın ve her hücreden tüm yinelenen kelimeler kaldırılacaktır. Ekran görüntüsüne bakın:

Not: Yukarıdaki formülde A2, kullanmak istediğiniz hücreyi belirtir ve virgül (,) bir hücredeki kelimeleri ayıran noktalama işaretini temsil eder, ihtiyacınıza göre bunu başka herhangi bir noktalama işaretine değiştirebilirsiniz.