Excel 阿拉伯数字转汉字：简单方法和自定义函数

Excel中没有原生的功能可以将阿拉伯数字转换为汉字，但可以通过自定义函数实现。

以下是一个简单的自定义函数，将阿拉伯数字转换为汉字：

打开Excel，按下Alt+F11进入VBA编辑器。
在VBA编辑器中，点击'插入'菜单，选择'模块'，在新建的模块中输入以下代码：

Function ConvertNumberToChinese(ByVal MyNumber As Double) As String
    '汉字数字
    Dim ChineseStr As String
    ChineseStr = '零壹贰叁肆伍陆柒捌玖'
    '数字单位
    Dim UnitStr As String
    UnitStr = '元拾佰仟万拾佰仟亿拾佰仟'
    '结果字符串
    Dim ResultStr As String
    ResultStr = ''
    '小数部分
    Dim DecimalStr As String
    DecimalStr = ''
    '处理负数
    If MyNumber < 0 Then
        ResultStr = '负'
        MyNumber = Abs(MyNumber)
    End If
    '处理整数部分
    Dim IntPart As Long
    IntPart = Int(MyNumber)
    Dim i As Integer
    i = Len(IntPart)
    Dim j As Integer
    j = 1
    Do While i > 0
        Dim Num As Integer
        Num = Mid(IntPart, j, 1)
        If Num > 0 Then
            ResultStr = ResultStr & Mid(ChineseStr, Num + 1, 1) & Mid(UnitStr, i, 1)
        Else
            ResultStr = ResultStr & Mid(ChineseStr, 1, 1)
        End If
        i = i - 1
        j = j + 1
    Loop
    '处理小数部分
    Dim DecPart As Double
    DecPart = MyNumber - Int(MyNumber)
    If DecPart > 0 Then
        DecimalStr = '点'
        For i = 1 To 2
            DecPart = DecPart * 10
            Num = Int(DecPart)
            DecimalStr = DecimalStr & Mid(ChineseStr, Num + 1, 1)
            DecPart = DecPart - Int(DecPart)
        Next i
    End If
    '返回结果
    ConvertNumberToChinese = ResultStr & DecimalStr
End Function

保存模块，关闭VBA编辑器。
在Excel表格中，输入要转换的阿拉伯数字，例如123456789.12。
在另一个单元格中输入以下公式：=ConvertNumberToChinese(A1)，其中A1是输入的阿拉伯数字所在单元格。
按下回车键，就可以将阿拉伯数字转换为汉字。

注意事项：

这个函数只能处理小于等于10亿的数字，超出范围会返回'#VALUE!'错误。
如果要处理更大的数字，请修改UnitStr变量中的单位列表。
如果要处理更多小数位数，请修改DecimalStr变量中的循环次数。