=SUBSTITUTE(SUBSTITUTE(TEXT(INT(E7),”[DBNum2][$-804]G/通用格式元”&IF(INT(E7)=E7,”整”,””))&TEXT(MID(E7,FIND(“.”,E7&”.0″)+1,1),”[DBNum2][$-804]G/通用格式角”)&TEXT(MID(E7,FIND(“.”,E7&”.0″)+2,1),”[DBNum2][$-804]G/通用格式分”),”零角”,”零”),”零分”,””)
其中E7为需要转换的单元格数值
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1>0,,”负”)&TEXT(INT(ABS(A1)+0.5%),”[dbnum2]G/通用格式元;;”)&TEXT(RIGHT(RMB(A1,2),2),”[dbnum2]0角0分;;整”),),”零角”,IF(A1^2<1,,"零")),"零分","整")
excel人民币大写公式一： =SUBSTITUTE(SUBSTITUTE(IF(A2>-0.5%,,”负”)&TEXT(INT(FIXED(ABS(A2))),”[dbnum2]G/通用格式元;;”)&TEXT(RIGHT(FIXED(A2),2),”[dbnum2]0角0分;;”&IF(ABS(A2)>1%,”整”,)),”零角”,IF(ABS(A2)<1,,"零")),"零分","整")excel人民币大写公式二： =IF(A2<0,"金额为负无效",(IF(OR(A2=0,A2=""),"零元",IF(A2<1,"",TEXT(INT(A2),"[dbnum2]G/通用格式")&"元"))))&IF((INT(A2*10)-INT(A2)*10)=0,IF(INT(A2*100)-INT(A2*10)*10=0,"","零"),(TEXT(INT(A2*10)-INT(A2)*10,"[dbnum2]")&"角"))&IF((INT(A2*100)-INT(A2*10)*10)=0,"整",TEXT((INT(A2*100)-INT(A2*10)*10),"[dbnum2]")&"分")excel人民币大写公式三： =IF(TRIM(A2)="","",IF(A2=0,"",IF(A2<0,"负",)&IF(INT(A2),TEXT(INT(ABS(A2)),"[dbnum2]")&"元",)&IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-INT(ABS(A2))*10,"[dbnum2]")&"角",IF(INT(ABS(A2))=ABS(A2),,IF(ABS(A2)<0.1,,"零")))&IF(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),"[dbnum2]")&"分","整")))
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1>0,,”负”)&TEXT(INT(ABS(A1)+0.5%),”[dbnum2]G/通用格式元;;”)&TEXT(RIGHT(RMB(A1,2),2),”[dbnum2]0角0分;;整”),),”零角”,IF(A1^2<1,,"零")),"零分","整")
excel人民币大写公式一：
=SUBSTITUTE(SUBSTITUTE(IF(A2>-0.5%,,”负”)&TEXT(INT(FIXED(ABS(A2))),”[dbnum2]G/通用格式元;;”)&TEXT(RIGHT(FIXED(A2),2),”[dbnum2]0角0分;;”&IF(ABS(A2)>1%,”整”,)),”零角”,IF(ABS(A2)<1,,"零")),"零分","整")
excel人民币大写公式二：
=IF(A2<0,"金额为负无效",(IF(OR(A2=0,A2=""),"零元",IF(A2<1,"",TEXT(INT(A2),"[dbnum2]G/通用格式")&"元"))))&IF((INT(A2*10)-INT(A2)*10)=0,IF(INT(A2*100)-INT(A2*10)*10=0,"","零"),(TEXT(INT(A2*10)-INT(A2)*10,"[dbnum2]")&"角"))&IF((INT(A2*100)-INT(A2*10)*10)=0,"整",TEXT((INT(A2*100)-INT(A2*10)*10),"[dbnum2]")&"分")
excel人民币大写公式三：
=IF(TRIM(A2)="","",IF(A2=0,"",IF(A2<0,"负",)&IF(INT(A2),TEXT(INT(ABS(A2)),"[dbnum2]")&"元",)&IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-INT(ABS(A2))*10,"[dbnum2]")&"角",IF(INT(ABS(A2))=ABS(A2),,IF(ABS(A2)<0.1,,"零")))&IF(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),"[dbnum2]")&"分","整")))