Мяв.
Для работы кода требуется функционал Application.Trim, но Application.Trim использовать нельзя.
Я написал аналог, но, мне кажется, что получилась пушка слишком крупного калибра. Может в закутках VBA найдется калибр поменьше?
Для работы кода требуется функционал Application.Trim, но Application.Trim использовать нельзя.
Я написал аналог, но, мне кажется, что получилась пушка слишком крупного калибра. Может в закутках VBA найдется калибр поменьше?
Код |
---|
Sub test() txt = " aa bb dd ee " t = AccTrim(txt) tt = Application.Trim(txt) Debug.Print t Debug.Print tt End Sub Function AccTrim(txt) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "( {2,})" AccTrim = Trim(.Replace(txt, " ")) End With End Function |