首先介紹Excel中的4種方法

【方法一】單元格格式設定

選中要設定大寫金額的資料，按Ctrl+1調出設定單元格格式框，選擇特殊，在型別中選擇中文大寫數字，然後確定。

原資料

設定大寫後資料

【方法二】函式生成金額大寫

利用Excel中的隱藏函式numberstring

【方法三】函式生成金額大寫

利用組合函式的巢狀完成

函式公式：=IF(ROUND(A1,2)<0,"無效數值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))

此函式的優勢在於，生成的結果符合財務要求，整數後面有整，小數點後可以精確到分，而方法一和二隻是照貓畫虎的一個轉換。

【方法四】VBA自定義函式

VBA自定義函式程式碼：

Public Function RMBDX(M)

"人民幣大寫函式

RMBDX = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")

RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", IIf(RMBDX = "零", "", RMBDX & "元整")))

RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "負")

End Function

此方法的優勢在於，儲存成載入宏之後，可以在任意工作表中使用，函式輸入較為簡單，使用方便。

接下來介紹Word中的一種方法

此方法不可以批次設定數字大小寫，只可以一個數一個數的轉換，不太方便

以Word2007為例，小寫轉大寫：進入Word2007主介面→選中需要改大小寫的數字→選單頂欄選擇插入→編號→壹、貳、叄……如圖示：

以Excel2007為例，小寫轉大寫：進入Excel2007主介面→選中需要更改大小寫的數字→右鍵設定單元格格式→數字→特殊→中文大寫數字

在word更改數字大小寫

開啟新的視窗中選擇壹，貳，叄

確認後就自動更改為中文大寫數字了

在Excel中更改數字大小寫

開啟新視窗選擇數字，特殊，中文大寫數字

確認即可