可以通过公式实现 看看一下的哪个适合你 (以等号开始为一个公式)=TEXT(INT(A5),"[DBNum2]")&"元"&TEXT(INT(A5*10)-INT(A5)*10,"[DBNum2]")&"角"&TEXT(INT(A5*100)-INT(A5*10)*10,"[DBNum2]")&"分"=IF(A5<0,REPLACE(IF(TRUNC(A5)=A5,TEXT(A5,"[DBNum2]")&"元整",IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),"[DBNum2]")&"元"&TEXT(RIGHT(A5),"[DBNum2]")&"角整",TEXT(TRUNC(A5),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",A5)),"零",TEXT(LEFT(RIGHT(A5,2)),"[DBNum2]")&"角")&TEXT(RIGHT(A5),"[DBNum2]")&"分")),1,1,"负"),IF(TRUNC(A5)=A5,TEXT(A5,"[DBNum2]")&"元整",IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),"[DBNum2]")&"元"&TEXT(RIGHT(A5),"[DBNum2]")&"角整",TEXT(TRUNC(A5),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",A5)),"零",TEXT(LEFT(RIGHT(A5,2)),"[DBNum2]")&"角")&TEXT(RIGHT(A5),"[DBNum2]")&"分")))=IF(A5<0,REPLACE(IF(TRUNC(A5)=A5,TEXT(A5,"[DBNum2]")&"元整",IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),"[DBNum2]")&"元"&TEXT(RIGHT(A5),"[DBNum2]")&"角整",TEXT(TRUNC(A5),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",A5)),"零",TEXT(LEFT(RIGHT(A5,2)),"[DBNum2]")&"角")&TEXT(RIGHT(A5),"[DBNum2]")&"分")),1,1,"负"),IF(TRUNC(A5)=A5,TEXT(A5,"[DBNum2]")&"元整",IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),"[DBNum2]")&"元"&TEXT(RIGHT(A5),"[DBNum2]")&"角整",TEXT(TRUNC(A5),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",A5)),"零",TEXT(LEFT(RIGHT(A5,2)),"[DBNum2]")&"角")&TEXT(RIGHT(A5),"[DBNum2]")&"分")))=IF(ISNUMBER(A5),IF(TRUNC(A5)=0,IF(AND(MID(TEXT(TRUNC(A5,2),"0.00"),LEN(TEXT(TRUNC(A5,2),"0.00"))-1,1)="0",RIGHT(TEXT(TRUNC(A5,2),"0.00"),1)="0"),"零元",""),TEXT(TRUNC(A5),"[DBNUM2]")&"元")&(IF(MID(TEXT(TRUNC(A5,2),"0.00"),LEN(TEXT(TRUNC(A5,2),"0.00"))-1,1)="0",IF(OR(TRUNC(A5)=0,RIGHT(TEXT(TRUNC(A5,2),"0.00"),1)="0"),"","零"),TEXT(MID(A5,LEN(TEXT(TRUNC(A5,2),"0.00"))-1,1),"[DBNUM2]")&"角"))&(IF(RIGHT(TEXT(TRUNC(A5,2),"0.00"),1)="0","",TEXT(RIGHT(TEXT(TRUNC(A5,2),"0.00"),1),"[DBNUM2]")&"分")),IF(A5="","","不是有效金额,请重新输入!"))=IF(ISNUMBER(A5),IF(TRUNC(A5)=0,IF(AND(MID(TEXT(TRUNC(A5,2),"0.00"),LEN(TEXT(TRUNC(A5,2),"0.00"))-1,1)="0",RIGHT(TEXT(TRUNC(A5,2),"0.00"),1)="0"),"零元",""),TEXT(TRUNC(A5),"[DBNUM2]")&"元")&(IF(MID(TEXT(TRUNC(A5,2),"0.00"),LEN(TEXT(TRUNC(A5,2),"0.00"))-1,1)="0",IF(OR(TRUNC(A5)=0,RIGHT(TEXT(TRUNC(A5,2),"0.00"),1)="0"),"","零"),TEXT(MID(A5,LEN(TEXT(TRUNC(A5,2),"0.00"))-1,1),"[DBNUM2]")&"角"))&(IF(RIGHT(TEXT(TRUNC(A5,2),"0.00"),1)="0","整",TEXT(RIGHT(TEXT(TRUNC(A5,2),"0.00"),1),"[DBNUM2]")&"分")),IF(A5="","","不是有效金额,请重新输入!"))还有很多 可以到 club.excelhome.net 搜索一下
其中一个公式=IF(ABS(A1)<0.005,"",IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,IF(ABS(A1)<0.1,,"零")))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整"))