excel数字中文大写

Excel数字转中文大写终极指南：一键搞定壹贰叁肆，告别加班！

嘿，各位加班党，大家好！我是老李，一个在Excel里摸爬滚打多年的“老油条”。今天咱不聊那些高大上的函数公式，就说点实在的——Excel数字转中文大写。别小看这玩意，财务报销、合同协议，处处都离不开它！

以前啊，我遇到这需求就头疼。一个个手动输入？效率低不说，还容易出错！那画面，简直不敢回想，深夜对着屏幕，眼睛都快瞎了。后来，我痛定思痛，开始研究Excel的各种奇技淫巧，终于摸索出一套高效又准确的转换方法。

先说说那些坑，大家避雷！

网上搜一堆教程，要么是函数公式过于复杂，理解不了；要么是自定义格式设置一大堆，结果还是出错。最气人的是，有些教程压根就是复制粘贴，根本没经过实践验证！我踩过不少坑，所以今天分享的，绝对是干货！

那么，到底该怎么搞？

方法其实很简单，核心就在于Excel自带的NUMBERSTRING函数，或者自定义函数。

方法一：NUMBERSTRING函数——简单粗暴，但有限制！

这个函数可以直接将数字转换为中文大写，语法是这样的：=NUMBERSTRING(number, type)

• number：要转换的数字。
• type：转换类型，1是简体中文大写，2是简体中文小写，3是繁体中文大写。

比如，=NUMBERSTRING(1234.56, 1)，结果就是“一二三四点五六”。

注意！注意！注意！ NUMBERSTRING函数的缺点也很明显：

1. 只能转换整数和小数，不能直接转换成“壹仟贰佰叁拾肆”这种标准财务大写。
2. 不同版本的Excel可能支持的type值不一样。

所以，这个方法只适合一些简单的场景，比如，只是需要把数字读出来，而不是用于正式的财务文档。

方法二：自定义函数——一劳永逸，自由定制！

这才是真正的杀手锏！我们可以自己编写一个VBA函数，来实现完美的数字转中文大写功能。

别害怕，VBA其实没那么难，只要会复制粘贴就行了！

1. 打开Excel，按下Alt + F11，打开VBA编辑器。
2. 在VBA编辑器中，点击“插入” -> “模块”。
3. 复制下面的VBA代码到模块中：

“`vba
Function ToChinese(Amount As Double) As String
Dim MyScale(9) As String
Dim MyUnit(5) As String
Dim Temp As String
Dim IntegerPart As String
Dim DecimalPart As String
Dim i As Integer
MyScale(0) = “分”
MyScale(1) = “角”
MyScale(2) = “元”
MyScale(3) = “拾”
MyScale(4) = “佰”
MyScale(5) = “仟”
MyScale(6) = “万”
MyScale(7) = “拾”
MyScale(8) = “佰”
MyScale(9) = “仟”
MyUnit(0) = “”
MyUnit(1) = “壹”
MyUnit(2) = “贰”
MyUnit(3) = “叁”
MyUnit(4) = “肆”
MyUnit(5) = “伍”
MyUnit(6) = “陆”
MyUnit(7) = “柒”
MyUnit(8) = “捌”
MyUnit(9) = “玖”

'分割整数和小数部分
IntegerPart = Int(Amount)
DecimalPart = Round((Amount - IntegerPart) * 100)

Temp = ""
'处理整数部分
For i = Len(IntegerPart) To 1 Step -1
    Dim Digit As Integer
    Digit = Mid(IntegerPart, i, 1)
    Temp = MyUnit(Digit) & MyScale(Len(IntegerPart) - i + 1) & Temp
Next i

'处理小数部分
Dim DecimalText As String
If DecimalPart > 0 Then
    DecimalText = MyUnit(Int(DecimalPart / 10)) & MyScale(1) & MyUnit(DecimalPart Mod 10) & MyScale(0)
Else
    DecimalText = "整" '或者 "零" ，根据需求修改
End If

ToChinese = Temp & DecimalText
'优化输出，去除连续的零和不必要的单位
ToChinese = Replace(ToChinese, "零拾", "零")
ToChinese = Replace(ToChinese, "零佰", "零")
ToChinese = Replace(ToChinese, "零仟", "零")
ToChinese = Replace(ToChinese, "零万", "万")
ToChinese = Replace(ToChinese, "零元", "元")
ToChinese = Replace(ToChinese, "零零", "零")
ToChinese = Replace(ToChinese, "零整", "整") '如果小数部分为零的情况
'ToChinese = Replace(ToChinese, "元整", "元")

If Right(ToChinese, 1) = "零" Then
    ToChinese = Left(ToChinese, Len(ToChinese) - 1)
End If

If Left(ToChinese,1) = "元" Then
    ToChinese = Replace(ToChinese,"元","")
End If

If Mid(ToChinese,1,1) = "壹" Then
    ToChinese = Replace(ToChinese,"壹元","元")
End If

If InStr(1,ToChinese,"元") = 0 Then
    ToChinese = "元" & ToChinese
End If

ToChinese = "人民币" & ToChinese

End Function
“`

1. 关闭VBA编辑器，回到Excel。

现在，你就可以在Excel中使用=ToChinese(A1)来将A1单元格的数字转换成中文大写了！例如，A1单元格是1234.56，那么=ToChinese(A1)的结果就是“人民币壹仟贰佰叁拾肆元伍角陆分”。

是不是很简单？

关于这个自定义函数，我还要多说几句：

• 你可以根据自己的需求修改代码，比如调整单位名称、处理零的方式等等。
• 保存Excel文件时，要选择“启用宏的工作簿(*.xlsm)”格式，否则VBA代码会丢失。

总结：

Excel数字转中文大写，看似简单，实则暗藏玄机。掌握正确的方法，可以大大提高工作效率，避免不必要的错误。希望我的分享能帮到大家，告别加班，早日实现财务自由！

另外，如果你在使用过程中遇到任何问题，欢迎在评论区留言，我会尽力解答！毕竟，帮助别人，快乐自己嘛！