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)”再下拉，结果如图
