=SUBSTITUTE(SUBSTITUTE(IF(B7<0,"负","")&TEXT(TRUNC(ABS(ROUND(B7,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(B7,2))),"",TEXT(RIGHT(TRUNC(ROUND(B7,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(B7,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(B7,2),3))=".",TEXT(RIGHT(ROUND(B7,2)),"[DBNum2]")&"分",IF(ROUND(B7,2)=0,"","整")),"零元零",""),"零元","")
把上面公式复制到B6 中就可以了。