EXCEL表格中输入自动生成大写金额

=SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,"负")&TEXT(INT(FIXED(ABS(A1))),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分整;;"&IF(ABS(A1)>1%,"整",)),"零角整",IF(ABS(A1)<1,,"零")),"零分整","整")
将上式中的A1修改为总金额所在的单元格

假设合计金额的小写在B16中
=IF(INT(B16)=0,"",TEXT(INT(B16),"[DBNum2]")&"元")&IF(OR(INT(B16*10)=0,INT(B16)=B16),"",IF(INT(B16*10)=INT(B16)*10,"零",RIGHT(TEXT(INT(B16*10),"[DBNum2]"),1)&"角"))&IF(INT(B16*100)=INT(B16*10)*10,"整",RIGHT(TEXT(ROUND(B16,2),"[DBNum2]"),1)&"分")

C8输入公式
=text(g8*100,"[dbnum2]0万0千0百0拾0元0角0分整")

右键－－设置单元格格式－－特殊－－中文大写数字