Excel - Leo's Notes

From Leo's Notes

Revision as of 20:09, 15 April 2020 by Leo (talk | contribs) (Created page with " == Tasks == === Trim Cell Spaces === If cells contain extraneous leading or trailing spaces and you wish to trim each cell's content: # Select the range # Hit {{code|Alt+F11}...")

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

This page was last edited on 15 April 2020, at 20:09.

Tasks

Trim Cell Spaces

If cells contain extraneous leading or trailing spaces and you wish to trim each cell's content:

Select the range
Hit Alt+F11, then Insert -> Module.

Define a new module with the following code:

Sub TrimCellSpace()
	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.