设置或返回用于千位分隔符的字符。String 类型,可读写。
expression.ThousandsSeparator
expression 必需。该表达式返回一个 Application 对象。
本示例将“1,234,567.89”放置在单元格 A1 中,然后将系统的十位分隔符和千位分隔符更改为短划线。
Sub ChangeSystemSeparators()
Range("A1").Formula = "1,234,567.89"
MsgBox "The system separators will now change."
' Define separators and apply.
Application.DecimalSeparator = "-"
Application.ThousandsSeparator = "-"
Application.UseSystemSeparators = False
End Sub