Skip to main content

如何在 Excel 中快速將貨幣數字轉換為文字?

Author: Sun Last Modified: 2025-08-06

在 Excel 中處理財務數據時,有時您可能需要將貨幣數字轉換為文字,例如寫出支票金額。遺憾的是,Excel 並未提供內建函數來實現此功能,但有兩種有效的方法可以做到這一點。本文將引導您了解這兩種方法,幫助您根據需求選擇最適合的方式。

Example of currency numbers in Excel converted to words

使用 VBA 程式碼將貨幣數字拼寫成文字

使用 Kutools for Excel 將貨幣數字拼寫成文字 good idea3


使用 VBA 程式碼將貨幣數字拼寫成文字

在 Excel 中,除了使用 VBA 外,您無法快速將數字轉換為英文單詞。

1. 按下「Alt + F11」鍵以打開「Microsoft Visual Basic for Application」視窗。

2. 點擊「插入」>「模組」,並將以下 VBA 貼到新的模組視窗中。

VBA:將貨幣數字轉換為英文單詞

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. 然後保存此程式碼並關閉視窗返回工作表,選擇一個空白單元格輸入此公式:=SpellNumberToEnglish(A2)(A2 是貨幣數字),然後按下 Enter 鍵,再拖動填充手柄向下應用此公式到您需要的單元格。請參閱截圖:

Example of using SpellNumberToEnglish formula to convert currency number to words in Excel
Arrow down
Example of currency numbers in Excel converted to words

使用便捷的 Spell Out Numbers 功能將貨幣數字拼寫成文字

對於不想使用 VBA 的用戶,Kutools for Excel 提供了一種簡單的一鍵式方法來將數字轉換為文字。「Numbers to Words」功能支持將數字轉換為超過 40 種不同的貨幣格式的文字,使其成為財務報告和國際交易的理想解決方案。只需幾次點擊,用戶就可以將數值轉換為多種語言的完整格式貨幣文本,包括美元、歐元、英鎊、日元、人民幣等,無需手動轉換並減少錯誤。

Kutools for Excel 提供超過 300 種進階功能,簡化複雜任務,提升創造力與效率。 結合 AI 能力,Kutools 能夠精準自動化任務,讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

1. 選擇貨幣數字並點擊「Kutools」>「內容」>「Numbers to Words」。請參閱截圖:

Screenshot showing Numbers to Words option in Kutools Content menu in Excel

2. 在「Numbers to Currency Words」對話框中,選擇您要使用的語言;這裡我將從「Languages」列表框中選擇「English」選項,請參閱截圖:

Screenshot showing Numbers to Currency Words dialog with English and Chinese options

3. 點擊「確定」或「應用」。然後您選擇的貨幣數字將被轉換為特定的貨幣文字。

Screenshot of currency numbers converted to English words using Kutools

📌 注意:您可以在應用此 Numbers to Words 功能之前將貨幣數字複製並粘貼到另一個工作表中。

在 Excel 中將貨幣數字轉換為文字可以通過使用 VBA 或 Kutools for Excel 來高效完成。通過實施這些方法中的任何一種,您可以自動化財務報告並消除手動輸入錯誤。如果您有興趣探索更多 Excel 技巧,我們的網站提供了數千個教程,幫助您掌握 Excel


示範:使用 Kutools for Excel 將貨幣數字轉換為文字

 
Kutools for Excel:超過 300 種實用工具任您使用!永久免費享受AI功能!立即下載!

最佳 Office 辦公效率工具

🤖 Kutools AI Aide:徹底革新數據分析,基於智能執行|生成程式碼|創建自訂公式|分析數據並生成圖表|調用 Kutools Functions
熱門功能查找、選取項目的背景色或標記重複值 | 刪除空行 | 合併列或單元格且不丟失資料 | 四捨五入...
高級 LOOKUP多條件查找|多值查找|多表查找|模糊查找...
高級下拉列表快速創建下拉列表 | 關聯下拉列表 | 多選下拉列表 ...
列管理器添加指定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 區域與列比較 ...
精選功能網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿及工作表管理器 | 資源庫 (自動文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按清單發送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體/傾斜/刪除線 ...)...
前15 大工具集12 款文本工具添加文本刪除特定字符,...)|50+ 種圖表 類型甘特圖,...)|40+ 實用 公式基於生日計算年齡,...)|19 款插入工具插入QR码按路徑插入圖片,...)|12 款轉換工具金額轉大寫匯率轉換,...)|7 款合併和分割工具高級合併行分割儲存格,...)| ...以及更多
使用 Kutools 支援你的語言——支援英語、西班牙語、德語、法語、中文及40 多種語言!

利用 Kutools for Excel 大幅提升你的 Excel 技能,感受前所未有的高效體驗。 Kutools for Excel 提供超過300 項高級功能,助你提升效率並保存時間。 點此查看你最需要的功能...


Office Tab 為 Office 帶來標籤式介面,讓你的工作更加輕鬆

  • 啟用 Word、Excel、PowerPoint 的標籤式編輯和閱讀功能
  • 在同一個視窗的標籤中打開和創建多個文件,而不是在新窗口中分開開啟。
  • 可提升你50% 的工作效率,每天為你大量減少滑鼠點擊次數!