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