EXCEL中數字轉人民幣大寫的兩種正確辦法

對于財務和會計領域的朋友們來說，在excel在錄入數據后，將數字自動轉換為人民幣大寫是每天都要做的工作之一。由于使用的頻繁和簡便，今天專門寫下這篇文章分享給大家。
????? Excel中也提供了將數字轉成人民幣大寫的功能，就是使用“設置單元格格式－－數字－－特殊－－中文大寫數字”。比如：589.3轉人民幣大寫后就是：伍佰捌拾玖.叁。只要用過的朋友們都知道使用excel的內置功能，將數字轉人民幣大寫，轉出來的結果還是不符合人民幣的說明習慣，所以我們一般不會采用這種方法。
????? 下面給大家分享的兩種方法主要是通過函數嵌套和宏VBA自定義函數。
????? EXCEL?數字轉人民幣大寫的第一種方法：通過函數嵌套實現。有兩種格式可供參考，詳見下圖：

?
????? 第二種數字轉人民幣大寫形式的公式是：
????? ="大寫金額："&IF(TRIM(B1)="","",IF(B1=0,"","人民幣"&IF(B1<>
",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元
",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B1))*10,"[d
bnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<>
")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))

????? EXCEL?數字轉人民幣大寫的第二種方法：通過宏VBA自定義函數實現。參考下圖。

????? 第一步：按下ALT+F11組合鍵，或者是單擊工具——宏——Visual?Basic編輯器，進入Visual?Basic編程環境，單擊“插入”?菜單——模塊，復制下面代碼，保存，退出關閉。Function?N2RMB(M)
????y?=?Int(Round(100?*?Abs(M))?/?100)
????j?=?Round(100?*?Abs(M)?+?0.00001)?-?y?*?100
????f?=?(j?/?10?-?Int(j?/?10))?*?10
????A?=?IIf(y?<>
????b?=?IIf(j?>?9.5,?Application.Text(Int(j?/?10),?"[DBNum2]")?&?"角",?IIf(y??1,?"零",?"")))
????c?=?IIf(f?<>
????N2RMB?=?IIf(Abs(M)?<><>
End?Function
????? 第二步：返回excel操作界面，在B1單元格輸入：=?N2RMB?(A1)，就可以將A1單元格的數字轉為人民幣大寫，然后向下復制公式即可將全部的數字轉為人民幣大寫。