excel表格中数字兑换成大写 金额转中文大写函数

Function ConvertToChinese(num As Double) As String
    Dim ChineseNum As Variant
    Dim ChineseUnit As Variant
    Dim strNum As String
    Dim strUnit As String
    Dim i As Integer
    Dim j As Integer
    Dim result As String

    ChineseNum = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
    ChineseUnit = Array("", "拾", "佰", "仟", "万", "亿")

    strNum = Format(num, "0.00")
    strNum = Replace(strNum, ".", "")

    For i = 1 To Len(strNum)
        j = Mid(strNum, i, 1)
        If j <> "0" Then
            result = result & ChineseNum(j) & ChineseUnit((Len(strNum) - i) Mod 4)
        ElseIf InStr(result, ChineseNum(0)) = 0 Or (i Mod 4 = 1 And i <> Len(strNum)) Then
            result = result & ChineseNum(0)
        End If
        If i Mod 4 = 0 And i <> Len(strNum) Then
            result = result & ChineseUnit(Int((Len(strNum) - i) / 4) + 4)
        End If
    Next i

    result = Replace(result, "零拾", "零")
    result = Replace(result, "零佰", "零")
    result = Replace(result, "零仟", "零")
    result = Replace(result, "零万", "万")
    result = Replace(result, "零亿", "亿")
    result = Replace(result, "零零", "零")

    If Left(result, 1) = "零" Then result = Mid(result, 2)
    If Right(result, 1) = "零" Then result = Left(result, Len(result) - 1)

    result = result & "元"

    If num - Int(num) > 0 Then
        strNum = Format(num - Int(num), "0.00")
        strNum = Mid(strNum, 3)
        If Mid(strNum, 1, 1) <> "0" Then
            result = result & ChineseNum(Mid(strNum, 1, 1)) & "角"
        End If
        If Mid(strNum, 2, 1) <> "0" Then
            result = result & ChineseNum(Mid(strNum, 2, 1)) & "分"
        End If
    End If

    If result = "元" Then result = "零元整"
    If Right(result, 1) = "元" Then result = result & "整"

    ConvertToChinese = result
End Function