Excel de aynı hücre içerisinde tekrar eden kelimeleri silme

[akdagzm]

Merhaba; Excel de A1 hücresinde Ali,Ali,Mehmet yazıyor. Ben bu hücre de sadece Ali, Mehmet yazmasını istiyorum. Yardımcı olabilir misiniz

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod A sütunundaki dolu hücreleri düzenleyecektir.

Option Explicit

Sub Unique_Data()
    Dim Rng As Range, My_Data As Variant
    
    For Each Rng In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
        If Rng.Value <> "" Then
            With VBA.CreateObject("Scripting.Dictionary")
                For Each My_Data In Split(Rng.Value, ",")
                    If Not .Exists(My_Data) Then
                        .Add My_Data, False
                    End If
                Next
                Rng.Value = Join(.Keys, ",")
            End With
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[akdagzm]

Korhan bey dönüşünüz için teşekkür ederim. Peki bu işlemi ben tıklayarak yapıyorum, herhangi bir işlem yapmadan otomatik şekilde belirlediğim hücreye yazdırabilir miyim

 

[Korhan Ayhan]

A1 hücresine tıkladığınızda mı işlemin olmasını istiyorsunuz?