Remove extra spaces from columns

attach please a small sample file with also desired result

Hi kre30a, try the following but amend it to your needs

Sub SpaceRemoval()
    
    Dim ws As Worksheet
    Dim theRng As Range
    Dim oC As Range
    
    Set ws = Worksheets("Sheet1")
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''Amend theRng to suit the column and cells to traverse through'''
    '''This example sets theRng to be from A1 to the last cell used '''
    '''in Column A.                                                 '''
    Set theRng = ws.Range(ws.Cells(1, 1), ws.Cells(ws.Rows.Count, 1).End(xlUp))
    For Each oC In theRng
        oC.Value = Replace(oC.Value, " ", "")
    Next oC
    
End Sub

Common Courtesy Response

Did this help your problem? It's been noted that you have returned since the last post but haven't managed to let us know if your issue is resolved. As a matter of courtesy perhaps you'd like to respond to those that have taken time out of their day to help you for free?

I'm sure you can see that you're more likely to receive help a second time if you are remembered as someone who has offered thanks in the past. That's just human nature.

Thanks.