如何在VBA（Excel、PowerPoint）中设置指定千位分隔符的数值格式

你的问题出在Format函数的格式字符串写法上：# ###.#里的空格并不是千位分隔符的占位符，VBA不会将其识别为千位分隔逻辑，因此无法自动添加空格分隔；同时系统区域设置会影响Format的分隔符输出，导致你得到了无空格的结果。以下是几种可靠的解决方法：

方法1：Format+替换（简单通用） #

先利用标准千位分隔格式生成字符串，再将默认的千位分隔符替换为空格，同时确保小数部分用逗号：

' 先按标准千位分隔格式化，此时千位分隔为系统默认符号（通常是逗号）
Dim tempStr As String
tempStr = Format(iCell.Value, "#,##0.0")

' 替换千位分隔的逗号为空格，小数部分会自动适配系统的逗号分隔（如果你的系统小数分隔是逗号）
VAL_PRODUCT = Replace(tempStr, ",", " ")

' 如果你的系统默认小数分隔是点，需要额外替换为逗号：
' VAL_PRODUCT = Replace(Replace(tempStr, ",", " "), ".", ",")

方法2：手动构造带空格分隔的字符串（完全自定义） #

如果需要彻底脱离系统区域设置的影响，可以手动拆分整数和小数部分，给整数部分添加空格千位分隔：

Dim intPart As String
Dim decPart As String
Dim thousandSep As String: thousandSep = " "
Dim decimalSep As String: decimalSep = ","

' 提取整数部分和一位小数部分
intPart = CStr(Int(iCell.Value))
decPart = CStr(Round((iCell.Value - Int(iCell.Value)) * 10, 0))

' 给整数部分添加千位空格分隔
Do While Len(intPart) > 3
    intPart = Left(intPart, Len(intPart) - 3) & thousandSep & Right(intPart, 3)
Loop

' 拼接最终格式
VAL_PRODUCT = intPart & decimalSep & decPart

方法3：修正Format格式字符串（仅适用于固定位数数字） #

如果你的数字位数固定，可以直接在格式字符串中手动添加空格，但这种方式通用性差，仅适合特定场景：

' 针对4位数：# ###,0；5位数：## ###,0，以此类推
VAL_PRODUCT = Format(iCell.Value, "# ###,0")

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