在Excel中，我们可以轻松的将小写金额数字，转换成为大写的金额数字。

　　但是，如果要将大写的金额数字转换成为小写的金额数字，是比较困难的。

　　本文，给大家提供一个转换的函数代码，其功能是将大写金额转换为小写金额数字。

　　代码如下，希望对您有所帮助。

　　Function ChiToNum(Str As String) As String
　　　Dim StrLen As Integer
　　　StrLen = Len(Str)
　　　Dim i As Integer
　　　Dim j As Integer
　　　Dim ChiStr As String
　　　ChiStr = "零壹贰叁肆伍陆柒捌玖"
　　　ChiToNum = ""
　　　For i = 1 To StrLen
　　　　For j = 1 To 10
　　　　　If Mid(Str, i, 1) = Mid(ChiStr, j, 1) Then
　　　　　　ChiToNum = ChiToNum & j - 1
　　　　End If
　　　Next j
　　　Next i
　　End Function

　　以上代码，在VBA函数下使用。当然，您也可以将其转换成为宏来使用。