[已解决]求助！相加法条件的公式

weifengcz · 发表于 2016-1-18 17:01

比如说9872 9+8=17个数取7，9+7=16个数取6，9+2=11个数取1，8+7=15个数取5，8+2=10个数取0，7+2=9个数取9，然后761509

相加法个数.rar (7.05 KB, 下载次数: 8)

心正意诚身修 · 发表于 2016-1-18 17:31

Function zdy(rng As Range)
Dim s%, k%
For s = 1 To Len(rng) - 1
For k = s + 1 To Len(rng)
zdy = zdy & (Val(Mid(rng, s, 1)) + Val(Mid(rng, k, 1))) Mod 10
Next
Next
End Function

复制代码

tgydslr · 发表于 2016-1-19 08:51

本帖最后由 tgydslr 于 2016-1-19 08:54 编辑

weifengcz 发表于 2016-1-18 22:51
我需要，谢谢你

如图G4=TEXT(SUM(MOD(SMALL(IF(ROW(INDIRECT("1:"&LEN(E4)))<TRANSPOSE(ROW(INDIRECT("1:"&LEN(E4)))),MID(E4,ROW(INDIRECT("1:"&LEN(E4))),1)+TRANSPOSE(MID(E4,ROW(INDIRECT("1:"&LEN(E4))),1))+10^(LEN(E4)+2-ROW(INDIRECT("1:"&LEN(E4))))*TRANSPOSE(LEN(E4)+1-ROW(INDIRECT("1:"&LEN(E4))))),ROW(INDIRECT("1:"&(LEN(E4)^2)/2-LEN(E4)/2))),10)*10^(ROW(INDIRECT("1:"&(LEN(E4)^2)/2-LEN(E4)/2))-1)),REPT(0,(LEN(E4)^2)/2-LEN(E4)/2)),三键下拉
直译，公式无优化

相加法个数.rar (8.4 KB, 下载次数: 1)

weifengcz · 发表于 2016-1-18 18:37

心正意诚身修发表于 2016-1-18 17:31

这样啊

weifengcz · 发表于 2016-1-18 18:43

本帖最后由 weifengcz 于 2016-1-18 18:50 编辑

weifengcz 发表于 2016-1-18 18:37
这样啊

解决了，谢谢！

tgydslr · 发表于 2016-1-18 19:21

本帖最后由 tgydslr 于 2016-1-18 19:24 编辑

公式也可以做到，公式长些

weifengcz · 发表于 2016-1-18 22:51

tgydslr 发表于 2016-1-18 19:21
公式也可以做到，公式长些

我需要，谢谢你

tgydslr · 发表于 2016-1-19 08:54

这个公式意义不大，支持的范围有限，如果字符长度超过6就不准确了
6*(6-1)/2=15,公式计算超过15位……

weifengcz · 发表于 2016-1-19 13:30

tgydslr 发表于 2016-1-19 08:51
如图G4=TEXT(SUM(MOD(SMALL(IF(ROW(INDIRECT("1:"&LEN(E4)))

我喜欢个，感谢你！

Wynne1986 · 发表于 2016-1-20 11:00

用VB解决是最好的方法，学习了。觉得很有用

		自动登录	找回密码
密码			注册

[已解决]求助！相加法条件的公式

评分

评分