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