Excel 表格数字转人民币大写公式

Microsoft Office Excel 2003表格中，数字转人民币大写公式

公式一：

=IF(ISERROR(SEARCH(".",B1))=TRUE,NUMBERSTRING(B1,2)&"元整",NUMBERSTRING(INT(B1),2)&"元"&NUMBERSTRING(MID(B1,SEARCH(".",B1)+1,1),2)&"角"&IF(ISERROR(NUMBERSTRING(MID(B1,SEARCH(".",B1)+2,1),2))=TRUE,"零分",NUMBERSTRING(MID(B1,SEARCH(".",B1)+2,1),2)&"分"))

公式二：

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

公式三：

=IF(B23<=0,,TEXT(INT(B23),"[dbnum2]人民币G/通用格式")&"元"&IF(INT(B23*10)-INT(B23)*10=0,IF(INT(B23)*(INT(B23*100)-INT(B23*10)*10)=0,"","零"),TEXT(INT(B23*10)-INT(B23)*10,"[dbnum2]")&"角")&IF((INT(B23*100)-INT(B23*10)*10)=0,"整",TEXT((INT(B23*100)-INT(B23*10)*10),"[dbnum2]")&"分"))