一、VBA中格式化数字的两种核心方式 #

• 方式1：使用Format函数转换为文本
  通过Format(数值, 格式字符串)将数字转成指定格式的文本，写入单元格后显示为格式化内容，但单元格存储的是字符串，无法直接参与计算。
• 方式2：设置单元格数字格式（保留数值）
  直接将原始数值写入单元格，再通过Range.NumberFormat设置显示格式，单元格存储的仍是可计算的数值，仅改变显示样式。

二、最佳实践对比 #

优先选择方式2（保留数值+设置单元格格式），原因：

• 数值可直接用于后续计算、排序、筛选等操作，无需二次转换；
• 格式修改灵活，后续可随时调整单元格格式，不影响原始数据；
• 避免文本型数值带来的潜在错误（比如求和时被忽略）。

三、针对你的需求的具体实现 #

你的需求：

1. 数字-587.2显示为587.20（取绝对值，保留两位小数）；
2. 数字-2986.80显示为($2,086.80)（带括号的美元格式，无红色）。

结合你当前的数组计算流程，以下是优化方案：

方案1：推荐——保留数值+设置单元格格式 #

1. 计算与数组赋值阶段：保持数值类型（Currency），不要转文本

' 原有计算逻辑不变，totalCat为Currency类型
totalCat = totalCat + CCur(arr_transactions(i, 12)) - CCur(arr_transactions(i, 13))
' 直接将数值存入输出数组，无需Format转换
outArray(i, col) = totalCat

2. 写入单元格后设置格式
   根据不同需求设置对应单元格的NumberFormat：

• 需求1（显示绝对值两位小数）：

  ' 假设目标列是rRptRange的第3列，或指定列范围
  rRptRange.Columns(3).NumberFormat = "#,##0.00;#,##0.00"
  ' 该格式会让正负数值都显示为正数样式，保留两位小数
  

• 需求2（带括号的美元格式，无红色）：

  ' 假设目标列是rRptRange的第4列
  rRptRange.Columns(4).NumberFormat = "$#,##0.00;($#,##0.00)"
  ' 默认会计格式的负数红色是因为包含[Red]，去掉后就不会显示红色
  

如果同一列内不同单元格需要不同格式，可循环判断数值后单独设置：

For iRptRow = LBound(arr_Output, 1) To UBound(arr_Output, 1)
    ' 写入数值
    rRptRange.Cells(iRptRow, iRptCol).Value = arr_Output(iRptRow, iRptCol)
    
    ' 根据数值设置对应格式
    Dim cellValue As Currency
    cellValue = arr_Output(iRptRow, iRptCol)
    
    If cellValue = -587.2 Then
        rRptRange.Cells(iRptRow, iRptCol).NumberFormat = "#,##0.00;#,##0.00"
    ElseIf cellValue = -2986.8 Then
        rRptRange.Cells(iRptRow, iRptCol).NumberFormat = "$#,##0.00;($#,##0.00)"
    End If
Next iRptRow

方案2：使用Format转文本（不推荐，仅作兼容参考） #

如果你因特殊需求必须用文本格式，调整Format的格式字符串即可：

' 需求1的格式转换
Dim fmt1 As String
fmt1 = "#,##0.00;#,##0.00"
outArray(i, col1) = Format(totalCat, fmt1) ' 输出为"587.20"

' 需求2的格式转换
Dim fmt2 As String
fmt2 = "$#,##0.00;($#,##0.00)"
outArray(i, col2) = Format(totalCat, fmt2) ' 输出为"($2,986.80)"（若totalCat为-2986.8）

注意：此方式下单元格存储的是文本，后续无法直接计算，需用CCur()或Val()转换后才能参与运算。

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