失眠网,内容丰富有趣,生活中的好帮手!
失眠网 > Excel125 | 人民币阿拉伯数字转中文大写

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

时间:2020-05-18 02:13:22

相关推荐

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

问题来源

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

公式分步解析

-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函数替换“零角”为“零”,“零分”为“整”。

如果觉得《Excel125 | 人民币阿拉伯数字转中文大写》对你有帮助,请点赞、收藏,并留下你的观点哦!

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。