EXCEL金额大写

比较精炼的写法：

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

 

其他：

（1）、

=IF((INT(A1*10)-INT(A1)*10)=0,TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,"整","零"

&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"

&IF((INT(A1*100)-INT((A1)*10)*10)=0,TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角整",

TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")

&"分"))

注:A1为阿拉伯数字。当角、分均为零时会有一个“整”字结尾。

（2）、

假设金额在A1,在欲转换为大写的单元格输入如下公式:
=TEXT(INT(A1),"[dbnum2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"",TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角")

&IF(INT(A1*100)-INT(A1*10)*10=0,"整",TEXT(INT(A1*100)-INT(A1*10)*10,"[dbnum2]")&"分")