You could use a macro

Sub trimall()
Application.ScreenUpdating = False
   Dim myRange As Range
   Set myRange = Range("A1:D1000") '< Change to suit
       For Each c In myRange
           c.Select
           c.Value = Trim(c.Value)
       Next c
Application.ScreenUpdating = True
End Sub

Mike