2024年4月2日发(作者：)

excel数字小写转大写函数

Excel数字小写转大写函数

在Excel中，我们常常需要将数字转换为大写金额，这时就需要用

到数字小写转大写函数。该函数可以将数字转换为对应的大写金额，

方便我们进行财务统计和报表制作。

Excel自带的数字小写转大写函数为：

=UPPER(TEXT(A1,"[dbnum2]"))，其中A1为需要转换的数字单元

格，[dbnum2]是Excel自带的格式代码，表示将数字转换为中文大

写金额。该函数可以将数字转换为中文大写金额，但是需要注意的

是，该函数只能将数字转换为中文大写金额，不能转换为其他语言

的大写金额。

如果需要将数字转换为其他语言的大写金额，可以使用第三方插件

或自定义函数实现。下面介绍一种自定义函数的实现方法。

自定义函数的实现方法

1.打开Excel，并按下快捷键“Alt+F11”，打开Visual Basic编辑

器。

2.在Visual Basic编辑器中，依次点击“插入”、“模块”，在新

建的模块中输入以下代码：

Function NumToChinese(ByVal Num As Double) As String

Dim MyNum As Variant, DecimalPart As String

Dim NumStr As String, i As Integer, j As Integer

Dim ChineseStr As String, CharStr As String

Dim MyChar As Variant, MinusFlag As Boolean

If Num < 0 Then

Num = Abs(Num)

MinusFlag = True

End If

MyNum = Split(Str(Num), ".")

NumStr = MyNum(0)

DecimalPart = ""

If UBound(MyNum) > 0 Then

DecimalPart = MyNum(1)

End If

If NumStr = "0" Then

ChineseStr = "零"

Else

For i = 1 To Len(NumStr)

MyChar = Mid(NumStr, i, 1)

CharStr = ""

Select Case MyChar