在Office Excel中人民币大写无元角分如何解决？

a、单击“工具”--“宏”--“Visual Basic 编辑器”
　　b、单击“Visual Basic 编辑器”菜单栏“运行”--“运行宏”
　　c、输入宏名，如 "zh" ,单击“创建”
　　d、键入以下代码：

　　'a1为数字小写单元格，a2为中文大写单元格
　　Const strN = "零壹贰叁肆伍陆柒捌玖"
　　Const strG = "拾佰仟万亿"
　　Const intN = "0123456789"

　　Dim Zero_Count As Long '读零计数

　　Private Function GetN(ByVal N As Long) As String
　　GetN = Mid(strN, N + 1, 1)
　　End Function

　　Private Function GetG(ByVal G As Long) As String
　　Select Case G
　　Case 1
　　GetG = ""
　　Case 2, 6
　　GetG = Mid(strG, 1, 1)
　　Case 3, 7
　　GetG = Mid(strG, 2, 1)
　　Case 4, 8
　　GetG = Mid(strG, 3, 1)
　　Case 5
　　GetG = Mid(strG, 4, 1)
　　Case 9
　　GetG = Mid(strG, 5, 1)
　　End Select
　　End Function

　　Private Function ReadLongNumber(ByVal LongX As String) As String
　　Dim numberx As String
　　Dim l As Long '长度
　　Dim