/VBA/Vba code to remove leading and trailing spaces

Vba code to remove leading and trailing spaces

Vba remove leading blank space in string

Option Explicit
Function trimWhiteSpace(s As String) As String
	Dim RE As Object: Set RE = CreateObject("vbscript.regexp")
	With RE
		.Global = True
		.MultiLine = True
		.Pattern = "^\s*(\S.*\S)\s*"
		trimWhiteSpace = .Replace(s, "$1")
	End With
End Function

Source: stackoverflow.com

Similar codes

1 vote229 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
3 votes269 views1 answer
Excel vba make long from two shorts
VBA
1 vote246 views1 answer
Vb.net get name by Cell Click
VBA
0 vote218 views1 answer
Vba len variant
VBA
0 vote232 views1 answer
Add text to Shape VBA
VBA
6 votes231 views1 answer
Excel vba check if a string only contains letters
VBA
1 vote221 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
0 vote234 views1 answer
Filesystemobject vba reference
VBA
0 vote223 views1 answer
Vba apostrophe chr
VBA
0 vote202 views1 answer
Replace spaces with underscores vbnet
VBA