для Excel <=2010
[vba]Код
Function UniChr(Code&)
UniChr = ChrW(Code)
End Function
[/vba]
Код
=ЛЕВБ(A1;ПОИСК(" ";A1)-1)&UniChr(8314)&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("–";A1)+2;99)-ЛЕВБ(A1;ПОИСК(" ";A1));0;UniChr(8304));1;UniChr(185));2;UniChr(178));3;UniChr(179));4;UniChr(8308));5;UniChr(8309));6;UniChr(8310));7;UniChr(8311));8;UniChr(8312));9;UniChr(8313));",";UniChr(B2))
для Excel >=2013
Код
=ЛЕВБ(A1;ПОИСК(" ";A1)-1)&ЮНИСИМВ(8314)&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("–";A1)+2;99)-ЛЕВБ(A1;ПОИСК(" ";A1));0;ЮНИСИМВ(8304));1;ЮНИСИМВ(185));2;ЮНИСИМВ(178));3;ЮНИСИМВ(179));4;ЮНИСИМВ(8308));5;ЮНИСИМВ(8309));6;ЮНИСИМВ(8310));7;ЮНИСИМВ(8311));8;ЮНИСИМВ(8312));9;ЮНИСИМВ(8313));",";ЮНИСИМВ(B2))