假设
假设数据在A1单元格
任何一个个单元格输入公式
=TEXT(INT(A1),"[dbnum2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"",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]")&"分")
假设数据在A1单元格,
任何一个单元格输入公式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[dbnum2]")&TEXT(MOD(A1,1)*100,"[dbnum2]圆0角0分"),"零角零分","整"),"零角","零"),"零分","整")
假设数据在 i10 单元格,
d10单元格输入公式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(I10),"[dbnum2]")&TEXT(MOD(I10,1)*100,"[dbnum2]圆0角0分"),"零角零分","整"),"零角","零"),"零分","整")
数据在A1单元格,
任何一个单元格输入公式
=IF(ISNUMBER(A1),IF(INT(A1),TEXT(INT(A1),"[dbnum2]")&"元",)&IF(INT(A1*10)-INT(A1)*10,TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角",IF(INT(A1)=A14,,IF(A1<0.1,,"零")))&IF(ROUND((A1)*100-INT(A1*10)*10,),TEXT(ROUND(A1*100-INT(A1*10)*10,),"[dbnum2]")&"分。","整。"),"")