Iki Metinsel Hucre Arasindaki farklari bulup baska bir hucreye yazdirma

[Mertinc]

Virgullerle (,) ayrilmis numaralardan olusan 2 hucrem var. K'deki hucrede tam liste, D'deki hucrede ise listenin bir kismi var. M hucresindeki hucreye K'de olup D'de olmayan sayilari siralamak istiyorum.

ornek:

K4 = 1,2,5,6

D4 = 1,5,6

Sonuc M4 = 2

SUBSTITUTE formulu eger D'deki siralama muthis bir duzende girilmisse ve K'nin ortasindaki sayilardan farki yoksa calisiyor ancak Boyle birsey isimize yaramiyor tabii ki.

VBA olmayan bir cozum gerekiyor. Ne onerilebilir? (Forumda daha once sorulmus bir soru eger gozumden kacmissa linki verirseniz sevinirim.)

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Eksikleri_Bul()
    Dim Son As Long, Veri1 As Variant, Veri2 As Variant, Say As Byte
    Dim X As Long, Y As Integer, Z As Integer
    
    Range("M:M").ClearContents
    Son = Cells(Rows.Count, "D").End(3).Row
    
    For X = 4 To Son
        Veri1 = Split(Cells(X, "K"), ",")
        Veri2 = Split(Cells(X, "D"), ",")
        
        For Y = 0 To UBound(Veri1)
            For Z = 0 To UBound(Veri2)
                If Veri1(Y) = Veri2(Z) Then
                    Say = Say + 1
                End If
            Next
            
            If Say = 0 Then
                If Cells(X, "M") = "" Then
                    Cells(X, "M") = Veri1(Y)
                Else
                    Cells(X, "M") = Cells(X, "M") & "," & Veri1(Y)
                End If
            End If
            Say = 0
        Next
    Next

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

 

[Mertinc]

Korhan Bey merhaba, ilginiz icin tesekkurler.

Yalniz VBA kullanmadan normal Excel formulleri/fonksiyonlari kullanarak yapabilecegimiz bir cozum yok mudur sizce de?