Вместо букв, вставь подходящие цифры таким образом, чтоб частное соответствовало условию. ав254: 73; кс106: 28; частное трехзначное число и дн162: 64; мл008: 18; частное четырёхзначное число

Ксожалению вы не написали условие. на vba эта решается банальным перебором, вот для 1-го примера: sub ppp() for a = 1 to 9 for b = 0 to 9 if (a*10000+b*1000+254)/73 = xxx then 'тут условие которое вы не написали msgbox(a*10000+b*1000+254) endif end sub