☰

К однозначному расчету

tag-icon • tag-icon microsoft-excel
К однозначному расчету

Помогите, пожалуйста, в Excel найти функции в ячейке результата, следующей за вычислением.

ID     Result  Calculation  
12345  6       >>1+2+3+4+5=15   >>1+5   =6  
21436  6       >>2x1x4x3x6=144  >>1x4x4 = 16 >>1x6  =6  
12345  2       >>1x2x3x4x5=120  >>1x2   =2    Omit zero digit

решение1

Во-первых, если вы не хотите ужасно сложный код, вам нужно поместить его в макрос. Если вы попытаетесь поместить его в одну ячейку, он, вероятно, будет длиной более 200 символов и его невозможно будет отладить.

Что-то вроде этого:

assuming var "in" contains the string

accumulator=0
for a=1 to len(in)
accumulator=accumulator*value(mid(trim(in),a,1))
next a

sum=0
while accumulator>9
for b=0 to len(accumulator)
sum=sum*value(mid(trim(accumulator),a,1))
next b
accumulator=sum
sum=0
wend

Примечание: Вы переключаетесь с умножения на сложение на основе неизвестных критериев, поэтому я не смог написать для этого код.

решение2

Для сложения, согласно строке 1, вы можете сократить до одной цифры следующим образом:

=MOD(A2-1,9)+1

но вы также хотите сделать то же самое для умножения? Как говорит cybernard, я не вижу, как вы определяете, что использовать, поэтому для отдельной формулы умножения, предполагая максимум 3 итерации и до 10 цифр в оригинале, попробуйте эту формулу

=PRODUCT(SUBSTITUTE((0&MID(PRODUCT(SUBSTITUTE((0&MID(PRODUCT(SUBSTITUTE((0&MID(A2,ROW(INDIRECT("1:10")),1))+0,0,1)+0),ROW(INDIRECT("1:10")),1))+0,0,1)+0),ROW(INDIRECT("1:10")),1))+0,0,1)+0)

подтверждено с CTRL+ SHIFT+ENTER

Связанный контент