是否公式将小写金额转换为大写金额？

但是这个复制不出来，因为想复制大写金额到DOC文档

在excel表格点开发工具，点visal basic,找到插入菜单，点插入模块， 把后边的代码，复制进模块，在任何一个单元格 输入公式=Rmbdx（单元格或者数字） Public Function Rmbdx(ByVal Rmb As Double) As String Application.Volatile False On Error Resume Next Dim Rmbexp, Rmbda, Expda, Trmb, Lj, s, w, t As String Dim Icnt As Integer, i As Integer Rmbda = 零壹贰叁肆伍陆柒捌玖 Rmbexp = 分角元拾佰仟万拾佰仟亿 Trmb = Replace(Format(IIf(Rmb < 0, -Rmb, Rmb), #0.00), ., ) Icnt = Len(Trmb) For i = 1 To Icnt     s = Mid(Trmb, i, 1): w = Mid(Rmbexp, Icnt - i %2B 1, 1)     If s = 0 Then        Lj = Mid(Rmbda, Val(s) %2B 1, 1) %2B IIf(w = 万 Or w = 元, w, )        If t = s Then Lj = IIf(w = 万 Or w = 元, w, )     Else        Lj = Mid(Rmbda, Val(s) %2B 1, 1) %2B w     End If     t = IIf(w = 万 Or w = 元, , s)     Expda = Expda %2B Lj Next If Right(Expda, 3) = 零元零 Then Expda = Replace(Expda, 零元零, 元整) If Right(Expda, 2) = 元零 Then Expda = Replace(Expda, 元零, 元整) If Right(Expda, 2) = 角零 Then Expda = Replace(Expda, 角零, 角整) If InStr(Expda, 零万) > 0 Then Expda = Replace(Expda, 零万, 万) If InStr(Expda, 亿万) > 0 Then Expda = Replace(Expda, 亿万, 亿零) If InStr(Expda, 零元) > 1 Then Expda = Replace(Expda, 零元, 元零) Else Expda = Replace(Expda, 零元, ) Rmbdx = IIf(Rmb < 0, 负数 %2B Expda, Expda) End Function 午休了，下午2点后，回复

老师，请问能打个比方说明一下吗？例如：单元格A1是小写金额，要在B2单元格转换为大写金额，那要在B2单元格怎么样设置函数？