Excel 轉(zhuǎn)大寫數(shù)字目前總結(jié)了兩種方法.

第一種：使用公式

=TEXT(TRUNC(F18),"[DBNum2]")&"元"&TEXT(RIGHT(FIXED(F18),2),"[dbnum2]0角0分整;;"&IF(ABS(F18)>1%,"整",))

第二種：編寫腳本

通過宏VBA自定義函數(shù)實現(xiàn)第一步：按下ALT+F11組合鍵，或者是單擊工具——宏——Visual Basic編輯器，進(jìn)入Visual Basic編程環(huán)境，單擊“插入” 菜單——模塊，復(fù)制下面代碼，保存，退出關(guān)閉。

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 < 1, "", Application.Text(y, "[DBNum2]") & "元") b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", ""))) c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分") N2RMB = IIf(Abs(M) < 0.005, "", IIf(M < 0, "負(fù)" & A & b & c, A & b & c)) End Function

返回excel操作界面，在B1單元格輸入：= N2RMB (A1)，就可以將A1單元格的數(shù)字轉(zhuǎn)為人民幣大寫，然后向下復(fù)制公式即可將全部的數(shù)字轉(zhuǎn)為人民幣大寫。

總結(jié)

以上是生活随笔為你收集整理的Excel数字转大写数字（含小数点）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。