使用text函数
text函数:将数值转换为按指定数字格式表示的文本。
语法: =text(数值,格式)
示例 : 数据在D列
=IF(A1<0,"无效数值",IF(A1=0,"",IF(A1<1,"",TEXT(INT(A1),"[dbnum2]")&"元")&IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)*(INT(A1*100)-INT(A1*10)*10)=0,"","零"),IF(AND((INT(A1)-INT(A1/10)*10)=0,INT(A1)>0),"零"&TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角",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]")&"分")))
=TEXT(A1*100,"人民币0拾0万0仟0佰0拾0元0角0分[dbnum2]")
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[>0][dbnum2];[<0]负[dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
="人民币"&NUMBERSTRING(INT(A1),2)&"元"&TEXT(MOD(A1,1)*100,"[dbnum2]0角0分")