Remove Duplicates and Spaces within a Range in a Row

Hi, Hangman,

maybe have a look at the code supplied by hiker95 in http://www.mrexcel.com/forum/excel-q...ml#post3696619 which may be adapted to suit your needs.

Ciao,
Holger

Hi, Hanman,

maybe try this code which goes into a standard module and should be tried on a copy of the worksheet without the expected result below.

Sub EF992722()
Dim lngCounter    As Long   'Row Counter
Dim lngCol        As Long   'Column Counter

Application.ScreenUpdating = False
For lngCounter = 5 To Cells(Rows.Count, 1).End(xlUp).Row
  For lngCol = Cells(lngCounter, Columns.Count).End(xlToLeft).Column To 3 Step -1
    If Cells(lngCounter, lngCol) = "" Then
      Cells(lngCounter, lngCol).Delete Shift:=xlToLeft
    ElseIf WorksheetFunction.CountIf(Range(Cells(lngCounter, 3), Cells(lngCounter, lngCol)), Cells(lngCounter, lngCol)) > 1 Then
      Cells(lngCounter, lngCol).Delete Shift:=xlToLeft
    End If
  Next lngCol
Next lngCounter
Application.ScreenUpdating = True
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button

Ciao,
Holger