Excel | 人民币阿拉伯数字转中文大写

问题来源

NUMBERSTRING函数的缺陷

韩老师此前写过一篇文章:Excel113 | NUMBERSTRING和TEXT函数:阿拉伯数字和中文数字转换,里面提到人民币数字转中文大写的一种方法:NUMBERSTRING函数,但:NUMBERSTRING函数的局限是:仅能计算整数,小数部分四舍五入。

如下图:

设置单元格格式的缺陷

设置单元格格式,可以设置成【特殊】——【中文大写数字】,但小数部分只能“逐字直译”成大写,不能写成“几角几分”。

以上两种方法不行,只能求助函数了。

函数实现

公式

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2,2),TEXT(A2,";负")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2,2),2),"[dbnum2]0角0分;;整"),"零元整"),"零角",IF(A2^2<1,,"零")),"零分","整")

公式分步解析

-RMB(A2,2)

按人民币格式将数值四舍五入到两位数并转换成文本;

TEXT(A2,";负")

如果A2的金额小于0,则返回字符“负”;

TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")

金额取绝对值,整数部分转换为大写,+0.5%避免0.999元等的情况下计算出现错误;

TEXT(RIGHT(RMB(A2,2),2),"[dbnum2]0角0分;;整")

金额小数部分转换为大写;

IF(-RMB(A2,2),TEXT(A2,";负")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2,2),2),"[dbnum2]0角0分;;整"),"零元整")

IF进行判断,如果金额不是0分,则返回大写结果,否则返回零元整;

最后用两个SUBSTITUTE函数替换“零角”为“零”,“零分”为“整”。

(0)

相关推荐