B1公式下拉:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式圆;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")
我把文件传上来,请点击这回答右下角绿色的“点击下载”按钮,下载文件看看效果。
设置单元格格式——数字——特殊——在右侧选“中文大写数字”,确定即可。
a1为数字单元格
=IF(ROUND(A1,2)<0,"无效数值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零角"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))
选中单元格 右键、单元格式、特殊、人民币大写(高级的 Office有这种功能)
假设数据在H21单元
=IF(TRIM(H21)="","",IF(H21=0,"",""&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(H21)),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元;"&IF(H21>-0.5%,,"负"))&TEXT(RIGHT(FIXED(H21),2),"[dbnum2]0角0分;;"&IF(ABS(H21)>1%,"整",)),"零角",IF(ABS(H1)<1,,"零")),"零分","整")))