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
'===========================
"Oleg" a écrit dans le
message de ...

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|


--
Oleg


------------------------------------------------------------------------
Oleg's Profile:
http://www.excelforum.com/member.php...fo&userid=4004
View this thread: http://www.excelforum.com/showthread...hreadid=520035