походу тема становиться "экселевской"
(надеюсь модераторы решат/ или не решат)
стырил формулу (для шрифта Code EAN13), но она мне не понравилась, сократил:Код
=ЛЕВБ(A2)&СИМВОЛ(ПСТР(A2;2;1)+65)&СИМВОЛ((--ЛЕВБ(A2)>3)*10+65+ПСТР(A2;3;1))&СИМВОЛ(ПСТР(A2;4;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);"0478"))*10)&СИМВОЛ(ПСТР(A2;5;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);"01459"))*10)&СИМВОЛ(ПСТР(A2;6;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);"02567"))*10)&СИМВОЛ(ПСТР(A2;7;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);"03689"))*10)&"*"&СИМВОЛ(ПСТР(A2;8;1)+97)&СИМВОЛ(ПСТР(A2;9;1)+97)&СИМВОЛ(ПСТР(A2;10;1)+97)&СИМВОЛ(ПСТР(A2;11;1)+97)&СИМВОЛ(ПСТР(A2;12;1)+97)&СИМВОЛ(ПСТР(A2;13;1)+97)&"+"