在数字“元”后面加入空格就行了，你试试：根据距离的远近，加入不同个数的空格。
rt.Cells(6,1).Text = CurRow("金额") &"元"＆" " & CUMoney(CurRow("金额"))
加好友 
发短信
Post By：2013/1/15 9:08:00 [显示全部帖子]
