Remove duplicate from rows from specific cell/row number to specific cell/row number

Hi,

I have the some data in sheet “DATA” where I have table with headings Tag, URM-1, URM-2, URM-3 etc.

Every tag contains multiple URM’s in each row.
Need vba code to remove duplicates contains from URM-1 to URM-7 only against “Tag” in individual rows and wants the result in new sheet “RESULT”

For example in sheet “DATA”

In row 2 against tag “JIOVNAU18349” there are three URMs. Against 3 URM 2 URMs are duplicate and one URM is Unique. Hence I want to keep the unique URM’s in ROW 2.

Do not remove duplicates in “Tag” Duplicates should be removed from Column URM-1 to URM-7. Please provide provision to change URM columns to remove duplicates. Means to remove duplicate urm from URM-1 to URM-7 OR URM-3 to URM-5, etc.

Please note I want the result in NEW SHEET.

this can do it

Sub test()
Dim r As Integer, lr As Long, lc As Long
lr = Sheets("Data").UsedRange.Rows.Count
lc = Sheets("Data").UsedRange.Columns.Count
ReDim sn(1 To lr, 1 To lc)
With Sheets("Data")
    For x = 1 To lr - 2
        For i = 1 To lc
            r = Application.CountIf(.Range(.Cells(x, 2), .Cells(x, i)), .Cells(x, i))
            If r = 1 Then
                sn(x, i) = "'" & .Cells(x, i)
            ElseIf r <> 1 Then
                sn(x, i) = ""
            End If
        Next i
    Next x
End With
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Range("A1").Resize(UBound(sn) - 1, lc) = sn
Sheets(Sheets.Count).Columns.AutoFit
End Sub

Kind regards
Leo

This should do

Sub test()
    Dim i As Long
    With Sheets("data").Cells(1).CurrentRegion
        For i = 2 To .Rows.Count
            .Rows(i).Value = .Parent.Evaluate("if(countif(offset(" & .Rows(i).Address & ",,,,column(" & _
                .Rows(i).Address & "))," & .Rows(i).Address & ")=1," & .Rows(i).Address & ","""")")
        Next
    End With
End Sub

Hey Thank you so much for the code

hi can you please provide code for below thread.
http://www.excelforum.com/excel-prog...ml#post4285701