Skip to main content

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

Author: Sun Last Modified: 2025-05-12

在 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功能!立即下載!

最佳辦公效率工具

🤖 Kutools AI 助手:基於智能執行方式革新數據分析:智能執行   |  生成代碼  |  創建自訂公式  |  分析數據並生成圖表  |  調用 Kutools 函數
熱門功能查找、標記重複值或識別重複項   |  刪除空行   |  合併列或單元格而不丟失數據   |   四捨五入無需公式 ...
高級 LOOKUP多條件 VLookup    多值 VLookup  |   多表查找   |   模糊查找 ....
高級下拉列表快速創建下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
列管理器添加特定數量的列  |  移動列  |  切換隱藏列的可見狀態  |  比較區域和列 ...
特色功能網格聚焦   |  設計檢視   |   增強編輯欄    工作簿與工作表管理器   |  資源庫(自動文本)   |  日期提取器   |  合併資料   |  加密/解密儲存格    按列表發送電子郵件   |  超級篩選   |   特殊篩選(篩選粗體/斜體/刪除線...) ...
頂級 15 種工具集12 個文本工具添加文本刪除特定字符、...)   |   50+ 圖表 類型甘特圖、...)   |   40+ 實用 公式基於生日計算年齡、...)   |   19 個插入工具插入QR碼根據路徑插入圖片、...)   |   12 個轉換工具金額轉大寫匯率轉換、...)   |   7 個合併與分割工具高級合併行分割儲存格、...)   |   ... 還有更多

使用 Kutools for Excel 提升您的 Excel 技巧,體驗前所未有的高效。 Kutools for Excel 提供超過 300 種高級功能來提高生產力並節省時間。  點擊這裡獲取您最需要的功能...


Office Tab 將標籤式界面帶到 Office,讓您的工作更加輕鬆

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中啟用標籤式編輯和閱讀。
  • 在同一窗口的新標籤中打開和創建多個文檔,而不是在新窗口中。
  • 將您的生產力提高 50%,每天為您減少數百次鼠標點擊!