How to delete duplicated values in each row ???

[Oleg]

I have a sheet with duplicated values in the rows
for example:

A B C D E F G H I J
1| 1| 1| 1| 3| 5| 5| 5| 1| 1| 1|
2| 8| 8| 8| 3| 3| 3| 8| 8| 8| 8|

I need to delete all duplicated values in each row
Result

A B C D E F G H I J
1| 1| 3| 5| 1|
2| 8| 3| 8|

 

[Ardus Petus]

That needs some macro.
Here is an example

HTH
--
AP

'=========== cut ==============
Sub supp()
suppdupes range("A1:J2")
End Sub

Sub suppDupes(table As Range)
Dim iRow As Long
Dim iCol As Long
With table
For iRow = 1 To .Rows.Count
For iCol = .Columns.Count To 2 Step -1
With .Cells(iRow, iCol)
If .Value = .Offset(0, -1).Value _
Then .Delete xlShiftToLeft
End With
Next iCol
Next iRow
End With
End Sub
'===========================

 

[Bob Phillips]

Sub Test()
Dim iLastRow As Long
Dim iLastCol As Long
Dim i As Long, j As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
iLastCol = Cells(i, Columns.Count).End(xlToLeft).Column
For j = iLastCol - 1 To 1 Step -1
If Cells(i, j).Value = Cells(i, j + 1).Value Then
Cells(i, j + 1).Value = ""
Cells(i, j + 2).Resize(, iLastCol - j).Copy Cells(i, j + 1)
End If
Next j
Next i

End Sub



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)