Создайте UDF, который использует версию Trim VBA, которая не касается внутренних пространств.Только удаляя начальные и конечные пробелы
Function MyTrim(str As String) As String
MyTrim = Trim(str)
End Function
Тогда вы можете вызвать его из рабочего листа:
=MyTrim(A1)
Если вы хотите, чтобы формула делала это:
=MID(LEFT(A1,AGGREGATE(14,6,ROW($XFD$1:INDEX(XFD:XFD,LEN(A1)))/(MID(A1,ROW($XFD$1:INDEX(XFD:XFD,LEN(A1))),1)<>" "),1)),AGGREGATE(15,6,ROW($XFD$1:INDEX(XFD:XFD,LEN(A1)))/(MID(A1,ROW($XFD$1:INDEX(XFD:XFD,LEN(A1))),1)<>" "),1),999)