aynı hücre içindeki yinelenen değerleri kaldırma

[muarrem]

Merhaba arkadaşlar örnek olarak paylaştığım excelin daha büyük verili olanı var elimde ve yinelenen telefon değerlerini kaldırmak istiyorum bunun için bir macrosu olan var mı ?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Hucre_Icinde_Mukerrer_Sil()
 
    Dim d As Object, j As Integer, i As Long, k, a

    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        Set d = CreateObject("Scripting.Dictionary")
        k = Split(Cells(i, "B"), " ")
        For j = 0 To UBound(k)
            If Not d.exists(k(j)) Then
                d.Add k(j), Nothing
            End If
        Next j
        Cells(i, "B").ClearContents: a = d.keys
        For j = 0 To d.Count - 1
            Cells(i, "B") = Cells(i, "B") & " " & a(j)
        Next j
    Next i
    
    Application.ScreenUpdating = True

End Sub

.

 

[muarrem]

teşekkürler hocam çalışıyor.

 

[muarrem]

dostum ana excelde şu hatayı alıyorum nedeni ne olabilir
k = Split(Cells(i, "B"), " ")

 

[Ömer]

Hata aldığınız dosyayı eklemeniz mümkün mü?

.