文档介绍：在Excel中根据小写的金额自动生成大写金额2008年05月24日星期六10:44在Excel中,我想根据小写的金额自动生成大写金额例一:问:如附件所示,我希望根据已有的小写金额让Excel自动生成规范的大写金额。谢谢!附件::=IF(ISNUMBER(A3),IF(INT(A3),TEXT(INT(A3),"[dbnum2]")&"元",)&IF(INT(A3*10)-INT(A3)*10,TEXT(INT(A3*10)-INT(A3)*10,"[dbnum2]")&"角",IF(INT(A3)=A3,,IF(A3<,,"零")))&IF(ROUND((A3)*100-INT(A3*10)*10,),TEXT(ROUND(A3*100-INT(A3*10)*10,),"[dbnum2]")&"分","整"),"")附件::给你一个,放在工具里:Functionconvert_digital_chinese(ByValMyinput)DimTemp,TempA,MyinputA,MyinputB,MyinputCDimPlaceAsStringDimJAsIntegerPlace="分角元拾佰仟万拾佰仟亿拾佰仟万"shuzi1="壹贰叁肆伍陆柒捌玖"shuzi2="整零元零零零万零零零亿零零零万"qianzhui=""IfMyinput<0Thenqianzhui="负"Myinput=Int(Abs(Myinput)*100+)IfMyinput>999999999999999#Thenmychange="数字太大了吧???"ExitFunctionEndIfIfMyinput=0Thenmychange="零元零分"ExitFunctionEndIfMyinputA=Trim(Str(Myinput))shuzilong=Len(MyinputA)ForJ=1ToshuzilongMyinputB=Mid(MyinputA,J,1)&MyinputBNextForJ=1ToshuzilongTemp=Val(Mid(MyinputB,J,1))IfTemp=0ThenMyinputC=Mid(shuzi2,J,1)&MyinputCElseMyinputC=Mid(shuzi1,Temp,1)&Mid(Place,J,1)&MyinputCEndIfNextshuzilong=Len(MyinputC)ForJ=1Toshuzilong-1IfMid(MyinputC,J,1)="零"ThenSelectCaseMid(MyinputC,J+1,1)Case"零","元","万","亿","整":MyinputC=Left(MyinputC,J-1)&Mid(MyinputC,J+1,30)J=J-1EndSelectEndIfNextshuzilong=Len(MyinputC)ForJ=1Toshuzilong-1IfMid(MyinputC,J,1)="亿"AndMid(MyinputC,J+1,1)="万"ThenMyinputC=Left(MyinputC,J)&Mid(MyinputC,J+2,30)ExitForEndIfNextmyc