REMOVE DUPLICATE BY SINGLE (STRING) ROWS

[pinmounir77]

Heyy there,

My problem is : i cant remove duplicate column by single string

I want script or marco or anythink (automation) to fix this problem

Take look of screenshot of my solution what i need

Thank you every one who fix that :D

 

[shinigamilight]

Sub iskop()
        Dim rng, rng2 As Range
        Set rng = Application.InputBox(prompt:="Hello, Please enter your range", Default:=Selection.Address, Type:=8)
        Dim i, p, k, j As Integer
        Dim v
      
      
        For p = 1 To rng.Columns.Count
                For i = 1 To rng.Rows.Count
                      If rng(i, p) = "" Then GoTo nextit
                      For j = p + 1 To rng.Columns.Count
                            For k = 1 To rng.Rows.Count
                                If rng(k, j) = rng(i, p) Then rng(k, j).Clear
                            Next k
                      Next j
nextit:
                Next i
        Next p
       ' remove the below lines if you don't want the cells to be shifted to left
        For Each rng2 In rng
                If rng2 = "" Then
                    rng2.Cells.Delete xlToLeft
                End If
        Next rng2
      
End Sub