你的核心困境在于：当虚拟机的系统区域设置把逗号同时设为千位和小数分隔符时，常规依赖区域分隔符拼接的格式字符串会让Excel混淆符号作用，导致格式失效。同时你不想修改原始数值（避免求和时的舍入误差），所以正确的思路是利用Excel独立于区域设置的自定义格式缩放语法，而非依赖系统分隔符。

问题根源 #

你之前的代码里，condFormat = "0" + Application.International(xlThousandsSeparator)会生成0,，但在千位/小数分隔符均为逗号的环境下，Excel会把这个格式解析为小数格式（因为系统默认小数分隔符是逗号），而非你期望的“千位单位缩放”，这就是显示不符合预期的原因。

解决方案：使用Excel内置的数值缩放格式 #

Excel的自定义格式语法中，在数字格式末尾添加逗号是特殊标记：单个逗号表示将数值除以1000，两个逗号表示除以1,000,000。这个规则是Excel内置的，完全不依赖系统区域设置，不会和分隔符功能混淆。

修改你的代码如下：

Sub TestFormatting()
    Dim aRange As Range
    Dim baseFormats
    Dim condFormat As String
    Dim aNumber As Long
    Dim bIndex As Integer
    Dim cIndex As Integer
    baseFormats = Array("General", "###,###,##0")
    ' 直接使用Excel的缩放格式，不依赖区域分隔符
    condFormat = "0,"
    aNumber = 123456789
    Application.Workbooks.Add
    With ActiveSheet
        .Cells(1, 1) = "NumberFormat"
        .Cells(2, 1) = "Conditional NumberFormat"
        .Cells(3, 1) = "=TRUE"
        .Cells(4, 1) = "=FALSE"
        For bIndex = 0 To UBound(baseFormats)
            .Cells(1, 2 + bIndex) = baseFormats(bIndex)
            .Cells(2, 2 + bIndex) = condFormat
            .Cells(3, 2 + bIndex) = aNumber
            .Cells(4, 2 + bIndex) = aNumber
            Set aRange = .Range(.Cells(3, 2 + bIndex), .Cells(4, 2 + bIndex))
            aRange.NumberFormat = baseFormats(bIndex)
            Call aRange.FormatConditions.Add(xlExpression, , "=$A3")
            aRange.FormatConditions(1).NumberFormat = condFormat
        Next bIndex
        With .UsedRange.Columns
            .ColumnWidth = 30
            .HorizontalAlignment = xlRight
        End With
    End With
End Sub

为什么这个方法有效 #

• 0,格式会让Excel将单元格原始数值除以1000后显示为整数，原始数值完全保留，所以求和时不会产生任何舍入误差。
• 这个缩放语法是Excel的内置规则，和系统区域设置无关，不管千位/小数分隔符是否相同，Excel都能正确识别为缩放操作，而非分隔符功能。

扩展：如果需要显示小数位 #

如果你需要展示千位单位的小数（比如把123456789显示为123456.79），可以使用带小数位的缩放格式：

condFormat = "0.00," ' 显示两位小数的千位单位数值

内容的提问来源于stack exchange，提问作者Fredrik