Создайте UDF, который использует версию Trim VBA, которая не касается внутренних пространств. Только удаляя начальные и конечные пробелы
Function MyTrim(str As String) As String
MyTrim = Trim(str)
End Function
Тогда вы можете вызвать это с листа:
=MyTrim(A1)
Если вы хотите, чтобы формула делала это:
[ 112]