在Excel中将数字转换为大写

123.09 ＝ 壹佰贰拾叁元零玖分

=SUBSTITUTE(SUBSTITUTE(IF(G10<0,"負","")&TEXT(TRUNC(ABS(ROUND(G10,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(G10,2))),"",TEXT(RIGHT(TRUNC(ROUND(G10,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(G10,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(G10,2),3))=".",TEXT(RIGHT(ROUND(G10,2)),"[DBNum2]")&"分",IF(ROUND(G10,2)=0,"","整")),"零元零",""),"零元","")

在Excel中将数字转换为大写

原文：http://www.cnblogs.com/suenihy/p/4660365.html