金額大寫轉換(金額大寫轉換器)

各位朋友，你們好。我是一名辦公軟件愛好者，喜歡Excel，會函數、會基礎操作、也會一點VBA。喜歡和大家分享、交流一些Excel的知識。歡迎愛好Exce和要學習Excel的朋友，相互學習、一起進步。如果你喜歡我的分享，請關注我，以便第一時間看到我分享的內容。

關于金額的大小寫轉換，通常用到的是小寫金額轉大寫金額。而我今天要分享的內容是：

小寫金額的拆分；小寫金額轉大寫金額【函數方法】小寫金額轉大寫金額【VBA方法】大寫金額轉小寫金額【VBA方法】小寫金額轉英文【VBA方法】Word里面小寫轉大寫WPS里面小寫轉大寫其他金額小寫轉大寫的方法

寫在前面：由于文章里面寫太多VBA代碼會影響閱讀體驗。故將VBA代碼截圖處理，需要演示文件的朋友，可以關注我，然后私信發送關鍵字：大寫金額、小寫金額、大小寫等獲取文件。

小寫金額的拆分

收據

如上圖收據樣式，在數量、單價中填寫好數據，即可生成合計金額，同時將合計金額按十、萬、千、百、十、元、角、分為單位拆分出來。接下來，我用一個案例詳細給大家分析分析下（用的隨機數模擬數據）：

金額拆分演示

操作演示中涉及兩個函數公式：

公式一：=MID(RIGHT(REPT(" ",9)&TEXT(ROUND($A3/1%,),"￥0"),9),COLUMN(A1),1)

公式二：=LEFT(RIGHT(TEXT(ROUND($A3/1%,)," ￥0"),10-COLUMN(A1)))

解決的思路和公式的理解詳見下圖：

小寫金額拆分，公式理解

小寫金額轉大寫金額【函數方法】

金額小寫轉大寫，這個是大家應用得最多的，詳見下面動畫操作演示：

小寫金額轉大寫金額【函數方法】

操作演示中用的公式是：

=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"負","")&TEXT(INT(ABS(A2)),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[dbnum2]0角0分;;整"),"零角","零"),"零分","整")

公式的理解思路詳見下圖：

小寫金額轉大寫的公式理解

按照上圖拆分，小寫金額轉大寫的函數公式，可以分為四部分：

①判斷正負數的：IF(A2<0,"負","")

②轉換整數部分的：TEXT(INT(ABS(A2)),"[dbnum2]G/通用格式元;;")

③轉換小數部分的：TEXT(RIGHT(RMB(A2),2),"[dbnum2]0角0分;;整")

④然后把以上三部分用【&】合并起來，在用SUBSTITUTE函數進行2次替換。

要實現相同的效果，不一定限于我示例中用的函數，ROUND、NUMBERSTRING等函數也可以實現，只要按照上圖的思路，達到要求的效果就可以。其中，有三點需要解釋下：

1、[dbnum2]G/通用格式元;;：①數據大于0的時候，按[dbnum2]G/通用格式元格式顯示；②數據小于0的時候，顯示空白；③數據等于0的時候，顯示空白。（這里使用了格式的前三個區間）【詳見下面動圖演示】

2、[dbnum2]0角0分;;整：同第一條，①當數據大于0的時候，按[dbnum2]0角0分格式顯示角和分，比如：壹角壹分；②如果金額小于0，顯示空白；③如果金額等于0，顯示整（即無小數，要轉換的數據是一個整數）。（這里使用了格式的前三個區間）

Excel數據格式的四個區間，每個區間用【;】隔開

3、[dbnum2]G/通用格式元：將小寫數字轉換為大寫數字，效果見下圖的操作演示：

[dbnum2]G/通用格式元

小寫金額轉大寫金額【VBA方法】

小寫金額轉大寫【VBA方法】

演示所用的代碼如下：

小寫金額轉大寫【VBA代碼】

大寫金額轉小寫金額【VBA方法】

大寫金額轉小寫金額【VBA方法】

演示所用的代碼如下：

大寫金額轉小寫金額【VBA代碼】

小寫金額轉英文【VBA方法】

小寫金額轉英文【VBA方法】

演示所用的代碼如下（部分代碼）：

小寫金額轉英文【VBA方法】

Word里面小寫轉大寫

Word里面小寫轉大寫

注意：此方法只支持整數，小數在轉換過程中，會先被四舍五入處理

WPS里面小寫轉大寫

選擇單元格→右鍵，選擇設置單元格格式→依次選擇數字、特殊、類型、【人民幣大寫】→完成

WPS里面的小寫金額轉大寫金額

其他金額小寫轉大寫的方法

1、輸入法直接錄入：比如搜狗輸入法

小寫金額轉大寫（輸入法）

2、專業軟件：

小寫金額轉大寫（軟件）