当前位置：首页 > 文章列表 > 文章 > 软件教程 > Excel大写金额转换公式汇总

Excel大写金额转换公式汇总

2025-11-08 20:03:38 0浏览收藏

欢迎各位小伙伴来到golang学习网，相聚于此都是缘哈哈哈！今天我给大家带来《Excel小写转大写金额公式大全》，这篇文章主要讲到等等知识，如果你对文章相关的知识非常感兴趣或者正在自学，都可以关注我，我会持续更新相关文章！当然，有什么建议也欢迎在评论留言提出！一起学习！

通过VBA函数、嵌套公式或第三方插件可将Excel中小写金额转为大写，首先推荐使用自定义VBA函数实现完整转换功能。

excel怎么把数字转为大写金额 excel将小写金额转为大写公式

如果您需要在Excel中将小写金额转换为大写金额，例如用于财务报表或发票打印，可以通过自定义公式实现。以下是具体操作步骤：

本文运行环境：联想ThinkPad X1 Carbon，Windows 11

一、使用自定义VBA函数转换为大写金额

VBA可以编写一个专门的函数来将数字金额转换为中文大写金额格式，适用于复杂的财务场景。

1、按下 Alt + F11 打开VBA编辑器。

2、在左侧项目窗口中右键点击工作簿名称，选择“插入” → “模块”。

3、将以下代码复制粘贴到代码窗口中：

Function RMB(ByVal MyNumber)
Dim IntegralPart, DecimalPart, TempStr As String
Dim JiaoFenArray(9) As String, DigitArray(9) As String
JiaoFenArray(0) = "": JiaoFenArray(1) = "角"; JiaoFenArray(2) = "分"
DigitArray(0) = ""; DigitArray(1) = "壹"; DigitArray(2) = "贰"; DigitArray(3) = "叁"
DigitArray(4) = "肆"; DigitArray(5) = "伍"; DigitArray(6) = "陆"
DigitArray(7) = "柒"; DigitArray(8) = "捌"; DigitArray(9) = "玖"
IntegralPart = Int(MyNumber)
DecimalPart = Format((MyNumber - IntegralPart) * 100, "00")
TempStr = ""
If IntegralPart >= 1 Then
    TempStr = ConvertGroup(IntegralPart)
    TempStr = Replace(TempStr, "元", "") & "元"
End If
If DecimalPart = "00" Then
    TempStr = TempStr & "整"
Else
    If Left(DecimalPart, 1) "0" Then
        TempStr = TempStr & DigitArray(Val(Left(DecimalPart, 1))) & "角"
    ElseIf Right(DecimalPart, 1) "0" Then
        TempStr = TempStr & "零"
    End If
    If Right(DecimalPart, 1) "0" Then
        TempStr = TempStr & DigitArray(Val(Right(DecimalPart, 1))) & "分"
    End If
End If
RMB = TempStr
End Function

Function ConvertGroup(ByVal NumStr As String) As String
Dim Result As String
Result = ""
If Len(NumStr) >= 4 Then Result = Mid(Result & "仟", 1, 1) & DigitArray(Mid(NumStr, Len(NumStr) - 3, 1))
If Len(NumStr) >= 3 Then Result = Mid(Result & "佰", 1, 2) & DigitArray(Mid(NumStr, Len(NumStr) - 2, 1))
If Len(NumStr) >= 2 And Mid(NumStr, Len(NumStr) - 1, 1) "0" Then Result = Mid(Result & "拾", 1, 3) & DigitArray(Mid(NumStr, Len(NumStr) - 1, 1))
If Len(NumStr) >= 1 Then Result = Result & DigitArray(Right(NumStr, 1))
ConvertGroup = Application.Trim(Result)
End Function

4、关闭VBA编辑器并返回Excel，在单元格中输入公式：=RMB(A1)，其中A1为包含小写金额的单元格。

二、使用嵌套公式结合TEXT和自定义文本替换

对于不支持VBA的环境，可通过多层嵌套公式模拟简单金额的大写转换，但仅适用于整数且范围较小的情况。

1、确保原始数据在A1单元格，且为数值类型。

2、在B1单元格输入以下公式：

=IF(A1=0,"零元整",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[DBNum2]")&"元"&IF(MOD(A1*100,100)=0,"整",TEXT(MOD(A1*100,100),"[DBNum2]00分")),"零分",""),"零角","零"),"零拾","零"),"零佰","零"),"零仟","零"),"零万","万"),"零亿","亿"),"零元","元"),"零元整","元整"),"零零","零"))

3、按回车确认，即可看到对应的大写金额结果。