在数字“元”后面加入空格就行了,你试试:根据距离的远近,加入不同个数的空格。
rt.Cells(6,1).Text = CurRow("金额") &"元"&" " & CUMoney(CurRow("金额"))