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

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

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

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

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

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

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

                    
                        
                        
                        
                        
                            
                            特别推荐
                        
    
                        
                        
    
                        1元可体验2G流量，44个优化节点，关键是稳定，我朋友已经用了3年多，￥14.9有130G流量且
支持流媒体播放
不限制使用人数
不限制到期时间
不限制网络速度
体验链接：https://mojie.app/register?aff=FBfNNdCT
                    
'货币自动转换成中文大写
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