Delete spaces in a cell containing text

olivier · Feb 18th, 2002, 08:58 PM

I am looking for a VBA code permitting to delete all the spaces in a cell containing text; the spaces can be before and after the text

Thanks

Tom Urtis · Feb 18th, 2002, 09:19 PM

If I understand you correctly, all you want to do is eliminate spaces within text.

This macro does that for column A, by replacing a spacebar character with nothing.

Modify for range; if I'm misinterpreting, please repost.

Sub DeleteSpaces()
Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub

Tom Urtis

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 18th, 2002, 08:58 PM	#1
olivier New Member Join Date: Feb 2002 Posts: 7	I am looking for a VBA code permitting to delete all the spaces in a cell containing text; the spaces can be before and after the text Thanks

Feb 18th, 2002, 09:19 PM	#2
Tom Urtis MrExcel MVP Join Date: Feb 2002 Location: San Francisco, California USA Posts: 10,382	If I understand you correctly, all you want to do is eliminate spaces within text. This macro does that for column A, by replacing a spacebar character with nothing. Modify for range; if I'm misinterpreting, please repost. Sub DeleteSpaces() Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False End Sub Tom Urtis