巧妙轉換 讓Excel人民幣小寫變大寫

　一、在三個連續(xù)的同行單元格中轉換

　　1. B2中輸入公式 “=IF(B1<0，"金額為負無效"，INT(B1))”，計算結果為￥6,050.00，然后點擊“格式→單元格→數字→特殊→中文大寫數字→確定”，B2顯示“陸仟零伍拾”，再點擊“格式→單元格→數字→自定義”，將“類型”編輯框中的“[dbnum2]G/通用格式”修改為：[dbnum2](“人民幣”)G/通用格式“元”，此時B2顯示：“(人民幣)陸仟零伍拾元”。

　　2. C2中輸入“=IF(B1<0，""，INT(B1??10)-INT(B1)??10)”，同樣C2改為：[DBNum2]G/通用格式“角”，C2顯示：“零角”。

　　3. D2中輸入“=IF(B1<0，""，INT(B1??100)-INT(B1??10)??10)”，同樣D2改為：[DBNum2]G/通用格式“分”， D2顯示：“玖分”。

　　這樣在連續(xù)的三個同行單元格中實現了大寫金額格式的轉換。為了使轉換符合財務格式，B2應右對齊，C2列寬無間隔，且不設左右邊框線，D2要左對齊。

　　二、用Excel提供的函數轉換

　　個位為0，則不顯示；不為0，顯示“XXX元”；不為0、且角位和分位均為0，顯示“XXX元整”；元角分位均為0，則顯示“零元整”。

　　小數點后面第一位為0、且元位或分位有一為0，則不顯示；為0、且元位和分位均不為0，則顯示“零”；不為0，顯示“X角”。

　　小數點后面第二位為0，則顯示“整”；不為0，顯示“X分”。

　　根據以上思路在B2中輸入公式：

　　“IF(B1<0，"金額為負無效"，IF(OR(B1=0，B1="")，"(人民幣)零元整"))；

　　IF(B1<1，"(人民幣)"，TEXT(INT(B1)，"[dbnum2](人民幣)G/通用格式")&&"元")&&IF(INT(B1??10)-INT(B1)??10=0)；

　　IF(INT(B1)??(INT(B1??100)-INT(B1??10)??10)=0，""，"零")，TEXT(INT(B1??10)-INT(B1)??10，"[dbnum2]")&&"角")&&IF((INT(B1??100)-INT(B1??10)??10)=0，"整"，TEXT((INT(B1??100)-INT(B1*10)*10)，"[dbnum2]")&&"分")))”。

　　確認后B2顯示：“(人民幣)陸仟零伍拾元零玖分”。以后使用時將公式復制到有關單元格中，若轉換的對象B1發(fā)生了變化，可點擊“編輯→替換”將B1替換掉。