1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行
Function Rmbs(rng As Variant) As String '大写
Application.Volatile
If Not VBA.IsNumeric(rng) Then Rmbs="": Exit Function
If rng="" Then Rmbs="": Exit Function
If rng=0 Then Rmbs="零圆整": Exit Function
Rmbs=Replace(Replace(Application.Text(Round(rng, 2), "[DBnum2]"),
".", "圆"), "-", "负") '精确到两位并将小数点替换为圆，将负号替换为“负”
Rmbs=IIf(Left(Right(Rmbs, 3), 1)="圆", Left(Rmbs, Len(Rmbs)-1)
& "角" & Right(Rmbs, 1) & "分", IIf(Left(Right(Rmbs, 2), 1)="圆", Rmbs &
"角", IIf(Rmbs="零", "", Rmbs & "圆整")))
Rmbs=Replace(Replace(Rmbs, "零圆", ""), "零角", "")
End Function
5、数据如图所示，其中有数字、零值、空值、文本，要求仅仅对数字转换为大写。在单元格B1中输入公式“=Rmbs(A1)”再下拉，结果如图
