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
- Hit
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
- Hit
F5
and run against the selected range.