дес ={"","двадцать ","тридцать ","сорок ","пятьдесят ","шестьдесят ","семьдесят ","восемьдесят ","девяносто "}
 Е0 =MOD(INT(Лист1!A1), 10 )
 Е1 =MOD(INT(Лист1!A1/ 10 ), 10 )
 Е123 =INDEX(сот,Е2+ 1 )&IF(Е1= 1 ,INDEX(цать,Е0+ 1 ),INDEX(дес,Е1))&IF(INT(Лист1!A1)= 0 ,"ноль ",IF(Е1<> 1 ,INDEX(ед,Е0+ 1 ),""))&"рубл"&IF(Е1= 1 ,"ей",LOOKUP(Е0,{ 0 , 1 , 2 , 5 },{"ей","ь","я","ей"}))
 Е2 =MOD(INT(Лист1!A1/ 100 ), 10 )
 Е3 =MOD(INT(Лист1!A1/ 1000 ), 10 )
 Е4 =MOD(INT(Лист1!A1/ 10 ^ 4 ), 10 )
 Е5 =MOD(INT(Лист1!A1/ 10 ^ 5 ), 10 )
 Е6 =MOD(INT(Лист1!A1/ 10 ^ 6 ), 10 )
 Е7 =MOD(INT(Лист1!A1/ 10 ^ 7 ), 10 )
 Е8 =MOD(INT(Лист1!A1/ 10 ^ 8 ), 10 )
 ед ={"","один ","два ","три ","четыре ","пять ","шесть ","семь ","восемь ","девять "}
 едж ={"","одна ","две ","три ","четыре ","пять ","шесть ","семь ","восемь ","девять "}
 К12 =IF(Лист1!A1-INT(Лист1!A1),TEXT(INT((Лист1!A1-INT(Лист1!A1)+ 0 . 00001 )* 100 )," 00") &" коп.","")
 М123 =INDEX(сот,Е8+ 1 )&IF(Е7= 1 ,INDEX(цать,Е6+ 1 ),INDEX(дес,Е7))&IF(Е7<> 1 ,INDEX(ед,Е6+ 1 ),"")&IF(Е6+Е7+Е8,"миллион"&IF(Е7= 1 ,"ов ",LOOKUP(Е6,{ 0 , 1 , 2 , 5 },{"ов "," ","а ","ов "})),"")
 Пропись =М123&Т123&Е123&К12
 сот ={"","сто ","двести ","триста ","четыреста ","пятьсот ","шестьсот ","семьсот ","восемьсот ","девятьсот "}
 Т123 =INDEX(сот,Е5+ 1 )&IF(Е4= 1 ,INDEX(цать,Е3+ 1 ),INDEX(дес,Е4))&IF(Е4<> 1 ,INDEX(едж,Е3+ 1 ),"")&IF(Е3+Е4+Е5,"тысяч"&IF(Е4= 1 ," ",LOOKUP(Е3,{ 0 , 1 , 2 , 5 },{" ","а ","и "," "})),"")
 цать ={"десять ","одиннадцать ","двенадцать ","тринадцать ","четырнадцать ","пятнадцать ","шестнадцать ","семнадцать ","восемнадцать ","девятнадцать "}