Tasks[edit | edit source]
Trim Cell Spaces[edit | edit source]
If cells contain extraneous leading or trailing spaces and you wish to trim each cell's content:
- Select the cell range you wish to trim
Alt + F11. In the VB window, insert a new module:
Insert -> Module.
- Define a new module with the following code:
Sub TrimCellSpace() On Error Resume Next Dim Rng As Range Dim WorkRng As Range Set WorkRng = Application.InputBox("Range", "Set Range", Application.Selection.Address, Type:=8) For Each Rng In WorkRng Rng.Value = VBA.Trim(Rng.Value) Next End Sub
F5and run against the selected range.