KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中快速将小写货币金额转换为大写文字？

作者孙修改日期

在 Excel 中处理财务数据时，有时需要将货币金额转换为文字形式，例如填写支票金额。遗憾的是，Excel 本身并未提供内置函数来实现这一功能，但您可以通过两种高效的方法轻松完成该任务。本文将为您详细介绍这两种方法，助您根据自身需求选择最佳方案。

Excel 中货币数字转换为文字的示例

使用 VBA 代码将货币小写金额转大写转换为文字

使用 Kutools for Excel 将货币小写金额转大写转换为文字好主意3

使用 VBA 代码将货币小写金额转大写转换为文字

在 Excel 中，若不使用 VBA，便无法快速将数字转换为英文文字。

1. 按下“Alt + F11”组合键，即可打开“Microsoft Visual Basic for Applications”窗口。

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 键，再向下拖动填充柄，即可将公式应用到所需单元格。参见截图：

使用 SpellNumberToEnglish 公式在 Excel 中将货币数字转换为文字的示例
向下箭头
Excel 中货币数字转换为文字的示例

使用便捷的添加大写金额函数将货币小写金额转大写转换为文字

对于不想使用 VBA 的用户，Kutools for Excel 提供了一键式解决方案，轻松将数字转换为文字。“小写金额转大写”功能支持将数字转换为超过 40 种不同货币格式的大写文字，是财务报告与国际交易的理想之选。只需轻点几下，即可将数值快速转换为包括 USD、EUR、GBP、JPY、CNY 等在内的多种语言完整货币文字格式，省去手动操作，有效减少错误。

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

1. 选中货币数字，然后单击“Kutools” > “内容” > “小写金额转大写”。参见截图：

Kutools Excel 内容菜单中“数字转文字”选项的截图

2. 在“小写金额转大写”对话框中，从“语言”列表框选择您所需的语言；此处我将选择“English”选项。参见截图：

“数字转货币文字”对话框的截图，包含英文和中文选项

3. 单击“确定”或“应用”，所选货币数字将立即转换为指定的货币文字。

使用 Kutools 将货币数字转换为英文文字的截图

📌 注意：在应用此小写金额转大写功能前，您可以先将货币数字复制粘贴到另一个工作表中。

在 Excel 中将货币数字转换为文字，可通过 VBA 或 Kutools for Excel 高效完成。采用任一方法，您即可实现财务报告自动化，彻底告别手动输入错误。想掌握更多 Excel 实用技巧？我们的网站提供数千篇教程，助您轻松精通 Excel！

演示：使用 Kutools for Excel 将货币数字转换为文字

 
Kutools for Excel：超过 300 款实用工具触手可及！畅享 AI 驱动的功能，让工作更智能、更高效！立即下载！

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱