在Excel中将数字转换为印度卢比及其他货币的文字形式（2025版）

以下是将数字转换为印度卢比或任何其他货币文字形式的方法。

在处理发票、报价单、税务表格、支票或付款凭证等财务文件时，通常需要以数字和文字两种形式表示货币值。这不仅提升了专业性，还可以防止欺诈或误解。

示例

虽然Microsoft Excel没有内置功能可以将数字转换为文字，但可以通过VBA、LAMBDA函数或全能的Kutools for Excel插件来实现这一目标。

使用VBA将数字转换为印度卢比的文字形式（适用于所有Microsoft版本）

• 将数字转换为其他货币的文字形式（美元、欧元等）
• 将工作簿保存为启用宏的文件

使用LAMBDA函数将数字转换为印度卢比的文字形式（仅限Microsoft 365）

将数字转换为美元、欧元及30多种其他货币的文字形式（适用于所有Microsoft版本）

何时使用每种方法

使用VBA将数字转换为印度卢比的文字形式（适用于所有Microsoft版本）

对于任何版本的Excel用户，VBA（Visual Basic for Applications）提供了一种可自定义的方法，根据印度计数系统（例如千、拉克、克若尔）将数值转换成文字。

第一步：按 Alt + F11 打开VBA编辑器（Microsoft Visual Basic for Applications窗口）。

第二步：点击 插入 > 模块。

第三步：将VBA代码粘贴到模块中。

将数字转换为印度卢比的文字形式

Function ConvertToRupees(ByVal MyNumber)
'UpdatebyExtendoffice
    Dim Units As String, SubUnits As String, TempStr As String
    Dim DecimalPlace As Integer, Count As Integer
    Dim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lakh "
    Place(4) = " Crore "
    
    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    
    If DecimalPlace > 0 Then
        SubUnits = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    
    Count = 1
    Do While MyNumber <> ""
        TempStr = GetHundreds(Right(MyNumber, 3))
        If TempStr <> "" Then Units = TempStr & Place(Count) & Units
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    
    ConvertToRupees = "Rupees " & Application.WorksheetFunction.Trim(Units)
    If SubUnits <> "" Then
        ConvertToRupees = ConvertToRupees & " and " & SubUnits & " Paise"
    End If
    ConvertToRupees = ConvertToRupees & " Only"
End Function

Private Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

Private Function GetTens(TensText)
    Dim Result As String
    If Val(Left(TensText, 1)) = 1 Then
        Select Case Val(TensText)
            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"
        End Select
    Else
        Select Case Val(Left(TensText, 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 "
        End Select
        Result = Result & GetDigit(Right(TensText, 1))
    End If
    GetTens = Result
End Function

Private Function GetDigit(Digit)
    Select Case Val(Digit)
        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

第四步：保存并返回Excel。

第五步：选择一个单元格并使用如下公式：

按下 Enter 键

💡 提示：此方法支持小数（派萨），并且离线可用。

使用VBA的局限性

• 需要将工作簿保存为启用宏的文件（.xlsm）。
• 在某些环境中，宏可能会被安全设置阻止。

将数字转换为其他货币的文字形式（美元、欧元等）

要为其他货币（如“美元”或“欧元”）自定义输出，可以在VBA函数中调整字符串值。以下是一个简化且更灵活的函数版本。

灵活的VBA代码模板（自定义货币）

'UpdatebyExtendoffice
Public Function NumberToWordsCustom(ByVal num As Double, Optional ByVal currency2 As String, Optional ByVal subCurrency As String) As String
    Dim result As String
    Dim dollars As Long
    Dim cents As Long

    dollars = Int(num)
    cents = Round((num - dollars) * 100)
  
    If Len(currency2) = 0 Then currency2 = "Dollars"
    If Len(subCurrency) = 0 Then subCurrency = "Cents"
    result = currency2 & " " & SpellNumber_English(dollars)

    If cents > 0 Then
        result = result & " and " & SpellNumber_English(cents) & " " & subCurrency
    End If

    NumberToWordsCustom = result & " Only"
End Function

Private Function SpellNumber_English(ByVal MyNumber As Long) As String
    Dim Units As Variant, Tens As Variant, Teens As Variant
    Dim Place() As String
    Dim TempStr As String
    Dim Count As Integer
    Dim t As String
    Dim StrNumber As String
    Dim n As Integer

    Place = Split(" Thousand Million Billion", " ")
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Teens = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

    StrNumber = Trim(Str(MyNumber))
    Count = 0

    Do While StrNumber <> ""
        n = Val(Right(StrNumber, 3))
        If n <> 0 Then
            t = ConvertHundreds(n, Units, Tens, Teens)
            If Count > 0 Then t = t & " " & Place(Count - 1)
            TempStr = t & " " & TempStr
        End If
        If Len(StrNumber) > 3 Then
            StrNumber = Left(StrNumber, Len(StrNumber) - 3)
        Else
            StrNumber = ""
        End If
        Count = Count + 1
    Loop

    SpellNumber_English = Trim(TempStr)
End Function

Private Function ConvertHundreds(ByVal n As Integer, Units As Variant, Tens As Variant, Teens As Variant) As String
    Dim result As String
    If n >= 100 Then
        result = Units(Int(n / 100)) & " Hundred "
        n = n Mod 100
    End If
    If n >= 20 Then
        result = result & Tens(Int(n / 10)) & " "
        n = n Mod 10
    ElseIf n >= 10 Then
        result = result & Teens(n - 10) & " "
        n = 0
    End If
    If n > 0 Then
        result = result & Units(n)
    End If
    ConvertHundreds = Trim(result)
End Function

示例VBA公式：

其他货币的示例VBA公式：

该代码非常灵活，只需传入所需的货币和辅助单位即可。

将工作簿保存为启用宏的文件

如果使用VBA，则必须保存启用了宏的工作簿。否则，关闭文件后您的代码将丢失。

第一步：点击 文件 > 另存为

第二步：选择位置并将文件类型设置为：启用宏的Excel工作簿 (*.xlsm)。

第三步：点击 保存。

✅ 您的自定义函数，如 =ConvertToRupees(A2)，现在可以持久化并在任何时候重复使用。

使用LAMBDA函数将数字转换为印度卢比的文字形式（仅限Microsoft 365）

对于Excel 365用户，您可以使用LAMBDA——一种无需VBA即可定义自定义公式的全新Excel功能。

🪄 什么是LAMBDA？

LAMBDA是Excel的一项功能，允许您使用公式创建自己的自定义函数，就像内置函数（如SUM或IF）一样，但无需任何代码或宏。它非常适合简化重复逻辑，使您的电子表格更简洁、更易于维护。

第一步：前往名称管理器，点击 公式 > 名称管理器。

第二步：创建新名称。

• 点击 新建 按钮。

  

• 输入 名称。

  示例：RupeeToWords

  

• 第三步：将此LAMBDA公式粘贴到“引用位置”字段中：

  =LAMBDA(n, LET( units, {"","一","二","三","四","五","六","七","八","九"}, teens, {"十","十一","十二","十三","十四","十五","十六","十七","十八","十九"}, tens, {"","","二十","三十","四十","五十","六十","七十","八十","九十"}, num, INT(n), paise, ROUND((n - INT(n)) * 100, 0), ConvertTwo, LAMBDA(x, IF(x<10, INDEX(units, x+1), IF(x<20, INDEX(teens, x-9), INDEX(tens, INT(x/10)+1) & IF(MOD(x,10)>0, " " & INDEX(units, MOD(x,10)+1), "") ) ) ), ConvertThree, LAMBDA(x, IF(x=0, "", IF(x<100, ConvertTwo(x), INDEX(units, INT(x/100)+1) & " 百" & IF(MOD(x,100)>0, " " & ConvertTwo(MOD(x,100)), "") ) ) ), words, IF(num=0, "零", TEXTJOIN(" ", TRUE, IF(INT(num/10000000)>0, ConvertTwo(INT(num/10000000)) & " 克若尔", ""), IF(MOD(INT(num/100000),100)>0, ConvertTwo(INT(MOD(num,10000000)/100000)) & " 拉克", ""), IF(MOD(INT(num/1000),100)>0, ConvertTwo(INT(MOD(num,100000)/1000)) & " 千", ""), IF(MOD(INT(num/100),10)>0, INDEX(units, INT(MOD(num,1000)/100)+1) & " 百", ""), IF(MOD(num,100)>0, ConvertTwo(MOD(num,100)), "") ) ), result, "卢比 " & words & IF(paise>0, " 和 " & ConvertTwo(paise) & " 派萨", "") & " 整", result ))



• 点击 确定 保存新名称。

第三步：关闭名称管理器并返回Excel。

第四步：像这样在任意单元格中使用公式：

按下 Enter 键。

👀 完整的LAMBDA函数代码能够处理克若尔、拉克、千以及小数部分。

将数字转换为美元、欧元及其他30多种货币的文字形式（适用于所有Microsoft版本）

为了获得最高效、专业的解决方案，使用 Kutools for Excel 的 数字转文字 功能。这个强大的工具支持：

🌍 超过30种货币，包括：

• 美元 (USD)
• 欧元 (EUR)
• 人民币 (CNY)
• 英镑 (GBP)
• 等等。

第一步：选择您要转换的单元格。

第二步：前往 Kutools > 文本 > 数字转文字

第三步：选择目标货币并点击 确定。

数字已成功转换为目标货币。

😁 提示：如果您想直接将数字转换为文字，请勾选 不转换为货币 选项，结果将显示为：

何时使用每种方法

• 如果您需要一个灵活且可编程的解决方案，并且熟悉宏，则使用VBA。

• 如果您使用的是Excel 365，且只是偶尔需要转换印度卢比值，那么使用LAMBDA是一种轻量级、可共享的解决方案，不需要宏或外部工具，非常适合简单的或个人任务。
• 如果您想要最简单、最快捷且最多功能的解决方案，使用 Kutools for Excel，无需编码。Kutools 特别适用于：
  • 处理多种货币的情况。
  • 需要批量或大规模数据集转换值。
  • 希望拥有一种无宏、专业就绪的工具，具备30多种货币选项和AI驱动的性能。