[开_118][已结}结贴在1楼]大写金额逆转换为数字金额

wshcw · 发表于 2009-7-27 19:01

IFERROR函数确实简短,只需117字就能解决.
=SUM(IFERROR(MATCH(MID(A2,FIND(MID("分角元拾佰仟万",ROW($1:7),1),A2)-1,1),TEXT(ROW($1:$9),"[dbnum2]"),),0)*10^(ROW($1:7)-3))

chrisfang · 发表于 2009-7-27 20:50

原帖由 wshcw 于 2009-7-27 19:01 发表
IFERROR函数确实简短,只需117字就能解决.
=SUM(IFERROR(MATCH(MID(A2,FIND(MID("分角元拾佰仟万",ROW($1:7),1),A2)-1,1),TEXT(ROW($1:$9),"[dbnum2]"),),0)*10^(ROW($1:7)-3))

111字符：
=ROUND(SUM(IFERROR(FIND(MID(0&A2,FIND(MID("万仟佰拾元角分",ROW($1:7),1),A2),1),"0零壹贰叁肆伍陆柒捌玖")-2,)*10^(5-ROW($1:7))),2)
或
107字符（结果形式有所变化）
=RMB(SUM(IFERROR(FIND(MID(0&A2,FIND(MID("万仟佰拾元角分",ROW($1:7),1),A2),1),"0零壹贰叁肆伍陆柒捌玖")-2,)*10^(5-ROW($1:7))))

chrisfang · 发表于 2009-7-27 20:52

沿用20楼的思路还可以做成这样(03版)：

=ROUND(SUM(-REPLACE(MMULT(-({"1E-",""}&FIND(MID(SUBSTITUTE(A2,"零",),ROW($1:5)*2-{0,1},1),"00整分角元拾佰仟万壹贰叁肆伍陆柒捌玖")),{1;1})+10,3,1,))%%%,2)

或
=RMB(SUM(-REPLACE(MMULT(-({"1E-",""}&FIND(MID(SUBSTITUTE(A2,"零",),ROW($1:5)*2-{0,1},1),"00整分角元拾佰仟万壹贰叁肆伍陆柒捌玖")),{1;1})+10,3,1,))%%%)

wshcw · 发表于 2009-7-27 21:02

原帖由 chrisfang 于 2009-7-27 20:50 发表

111字符：
=ROUND(SUM(IFERROR(FIND(MID(0&A2,FIND(MID("万仟佰拾元角分",ROW($1:7),1),A2),1),"0零壹贰叁肆伍陆柒捌玖")-2,)*10^(5-ROW($1:7))),2)
或
107字符（结果形式有所变化）
=RMB(SUM(IFERROR(FIN ...

终于打破公式100字的限制,精简至98个字符:

=SUM(IFERROR(FIND(MID(A2,FIND(MID("分角元拾佰仟万",ROW($1:7),1),A2)-1,1),"壹贰叁肆伍陆柒捌玖"),)*10^(ROW($1:7)-3))

[ 本帖最后由 wshcw 于 2009-7-27 21:05 编辑 ]

gouweicao78 · 发表于 2009-7-27 21:56

筑巢引凤，呵呵，黄兄好题得好解

chrisfang · 发表于 2009-7-27 22:23

再给一个暴力一点的解法：
=SUM(IFERROR((FIND(MID(A2,ROW($A:A),1),"0壹贰叁肆伍陆柒捌玖")-1)*10^FIND(MID(A2,ROW($A:A)+1,1),"0分角元拾佰仟万"),))%%

syz105729913 · 发表于 2009-7-27 23:32

过来参观学习，对TEXT还没吃透

冻豆腐 · 发表于 2009-7-28 09:07

方版的矩阵学得好厉害啊！不过26楼的方法会弄死计算机的。

sunmin577476 · 发表于 2009-7-29 13:21

不限制他的数位，能不能编制做成(03版)的公式出来？

[ 本帖最后由 sunmin577476 于 2009-7-29 13:23 编辑 ]

chrisfang · 发表于 2009-7-29 20:48

原帖由 sunmin577476 于 2009-7-29 13:21 发表
不限制他的数位，能不能编制做成(03版)的公式出来？

03版由于7层嵌套的限制，要适应更多位数有点困难，如果是07版倒还算比较方便，
例如将26楼的公式修改成下面这样，可以适应到“亿”为止的数据转换。

=SUM(IFERROR((FIND(MID(A2,ROW(A:A),1),"0壹贰叁肆伍陆柒捌玖")-1)*10^(FIND(MID(A2,ROW(A:A)+1,1),"0分角元拾佰仟万拾佰仟亿",IF(ROW(A:A)>IFERROR(FIND("万",A2),),1,8))-4),))

或

=SUM(IFERROR((FIND(MID(A2,ROW(A:A),1),"0壹贰叁肆伍陆柒捌玖")-1)*10^(FIND(MID(A2,ROW(A:A)+1,1),"0分角元拾佰仟万拾佰仟亿",(ROW(A:A)<IFERROR(FIND("万",A2),))*7+1)-4),))

[ 本帖最后由 chrisfang 于 2009-7-29 20:56 编辑 ]

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

[Excel 函数与公式] [开_118][已结}结贴在1楼]大写金额逆转换为数字金额

回复 23楼 chrisfang 的帖子

请教 22楼楼主 chrisfang ：不限制他的数位，能不能编制做成(03版)的公式出来？