x şeklinde göstersin

[XExcel]

Değerli üstadlarım,

örnek dosyada açıklamayı yaptım

yarımınız için teşekür ederim

Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Sub ayni_satirlar()
Dim z As Object, sat As Long, i As Long, k As Long, vkey
Set z = CreateObject("Scripting.Dictionary")
sat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sat
    If Cells(i, "A").Value <> "" And UCase(Cells(i, "A").Value) <> "X" Then
    deg = ""
        For k = 1 To 10
            deg = deg & "-" & Cells(i, k).Value
        Next
                    deg = Right(deg, Len(deg) - 1)

            If Not z.exists(deg) Then
                z.Add deg, i
                Else
                For Each vkey In z
                    If deg = vkey Then
                        Range("A" & i & ":J" & i).Value = "x"
                        Range("L" & i).Value = z.Item(vkey)
                        Exit For
                    End If
                Next
            End If
    End If
Next
End Sub