各位朋友，你們好。我是一名辦公軟件愛好者，喜歡Excel，會函數、會基礎操作、也會一點VBA。喜歡和大家分享、交流一些Excel的知識。歡迎愛好Exce和要學習Excel的朋友，相互學習、一起進步。如果你喜歡我的分享，請關注我，以便第一時間看到我分享的內容。
關於金額的大小寫轉換，通常用到的是小寫金額轉大寫金額。而我今天要分享的內容是：
- 小寫金額的拆分；
- 小寫金額轉大寫金額【函數方法】
- 小寫金額轉大寫金額【VBA方法】
- 大寫金額轉小寫金額【VBA方法】
- 小寫金額轉英文【VBA方法】
- Word裡面小寫轉大寫
- WPS裡面小寫轉大寫
- 其他金額小寫轉大寫的方法
<strong>寫在前面：由於文章裡面寫太多VBA代碼會影響閱讀體驗。故將VBA代碼截圖處理，需要演示文件的朋友，可以關注我，然後私信發送關鍵字：大寫金額、小寫金額、大小寫等獲取文件。
小寫金額的拆分
收據
如上圖收據樣式，在數量、單價中填寫好數據，即可生成合計金額，同時將合計金額按十、萬、千、百、十、元、角、分為單位拆分出來。接下來，我用一個案例詳細給大家分析分析下（用的隨機數模擬數據）：
金額拆分演示
操作演示中涉及兩個函數公式：
<code>公式一：=MID(RIGHT(REPT(" ",9)&TEXT(ROUND($A3/1%,),"￥0"),9),COLUMN(A1),1)/<code><code>公式二：=LEFT(RIGHT(TEXT(ROUND($A3/1%,)," ￥0"),10-COLUMN(A1)))/<code>
解決的思路和公式的理解詳見下圖：
小寫金額拆分，公式理解
小寫金額轉大寫金額【函數方法】
金額小寫轉大寫，這個是大家應用得最多的，詳見下面動畫操作演示：
小寫金額轉大寫金額【函數方法】
操作演示中用的公式是：
=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等函數也可以實現，只要按照上圖的思路，達到要求的效果就可以。其中，有三點需要解釋下：
<strong>1、[dbnum2]G/通用格式元;;：①數據大於0的時候，按<strong>[dbnum2]G/通用格式元格式顯示；②數據小於0的時候，顯示空白；③數據等於0的時候，顯示空白。（這裡使用了格式的前三個區間）【詳見下面動圖演示】
<strong>2、[dbnum2]0角0分;;整：同第一條，①當數據大於0的時候，按<strong>[dbnum2]0角0分格式顯示角和分，比如：壹角壹分；②如果金額小於0，顯示空白；③如果金額等於0，顯示整（即無小數，要轉換的數據是一個整數）。（這裡使用了格式的前三個區間）
Excel數據格式的四個區間，每個區間用【;】隔開
<strong>3、[dbnum2]G/通用格式元：將小寫數字轉換為大寫數字，效果見下圖的操作演示：
[dbnum2]G/通用格式元
小寫金額轉大寫金額【VBA方法】
小寫金額轉大寫【VBA方法】
演示所用的代碼如下：
小寫金額轉大寫【VBA代碼】
大寫金額轉小寫金額【VBA方法】
大寫金額轉小寫金額【VBA方法】
演示所用的代碼如下：
大寫金額轉小寫金額【VBA代碼】
小寫金額轉英文【VBA方法】
小寫金額轉英文【VBA方法】
演示所用的代碼如下（部分代碼）：
小寫金額轉英文【VBA方法】
Word裡面小寫轉大寫
Word裡面小寫轉大寫
注意：此方法只支持整數，小數在轉換過程中，會先被四捨五入處理
WPS裡面小寫轉大寫
選擇單元格→右鍵，選擇設置單元格格式→依次選擇數字、特殊、類型、【人民幣大寫】→完成
WPS裡面的小寫金額轉大寫金額
其他金額小寫轉大寫的方法
1、輸入法直接錄入：比如搜狗輸入法
小寫金額轉大寫（輸入法）
2、專業軟件：
小寫金額轉大寫（軟件）
閱讀更多 上班下班 的文章
