用过office的人都知道，在excel中想要将小写数字转换成人民币大写是件很头疼的事，因为没有函数可用，有公式也因为太复杂、太冗长而劝退了不少人，包括我。那么很多人不得不选择手动转换，效率低不说还容易出错。跟钱有关的事在哪儿可都是大事啊。于是本文中要说的自定义函数就闪亮登场了。还是先看个图片吧

最终效果就是这样，直接跟其它公式一样写法=rmbdx()就OK了

再看一个我录制的视频吧，可能会更直观些

实现方法很简单：在excel的VB编辑器中插入一个“模块”，然后把我的自定义函数复制进去，再把文件保存为“启用宏的工作簿”（扩展名是.xlsm）即可。

此处内容已隐藏，请付费后查看

有问题可以在下方留言，下课~~

有细心的网友发现如果小数位数大于2位则会出现“分”的数字是小数位最后一位的情况，感谢提醒，在此更新了一下函数

'货币自动转换成中文大写
Function RmbDx(ByVal c) As String
    Application.Volatile True
    Dim P As Integer
    c = Val(round(c,2))
    RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")
    RmbDx = Replace(RmbDx, "-", "负")
    If c = Fix(c) Then
        RmbDx = RmbDx & "元整"
    Else
        P = InStr(RmbDx, ".")
        RmbDx = Replace(RmbDx, ".", "元")
        If c * 10 = Fix(c * 10) Then
            RmbDx = RmbDx & "角整"
        Else
            RmbDx = Left(RmbDx, P) & Mid(RmbDx, P + 1, 1) & "角" & Right(RmbDx, 1) & "分"
        End If
    End If
End Function

温馨提示：本文最后更新于2023-12-05 00:55:50，某些文章具有时效性，若有错误或已失效，请在下方留言或联系上网的蜗牛。

本文资源整理自网络，仅供学习和研究使用，请在下载后24小时内删除，谢谢合作！

如果觉得本文有用就按Ctrl+D收藏，方便以后随时翻看，免得想看时又找不着或发现更多