如何用VBA设置Excel表格总计行的数字格式？

你遇到的问题可以通过在启用总计行后，直接对TotalsRowRange应用数字格式来解决，同时还能优化代码结构，减少重复冗余的代码。

修改后的完整代码 #

Sub averages()
'
' averages Macro
'
' Keyboard Shortcut: Ctrl+m
'
Dim objListObj As ListObject
Dim avgColumns As Variant
Dim col As Variant

' 获取目标表格对象
Set objListObj = ActiveSheet.ListObjects("Table1")

With objListObj
    ' 启用总计行
    .ShowTotals = True
    
    ' 用数组批量存储需要计算平均值的列索引
    avgColumns = Array(6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 19, 21, 22, 23, 24, 25, 26)
    ' 循环设置指定列的总计计算方式为平均值
    For Each col In avgColumns
        .ListColumns(col).TotalsCalculation = xlTotalsCalculationAverage
    Next col
    
    ' 检查总计行区域是否存在，避免表格为空的异常
    If Not .TotalsRowRange Is Nothing Then
        ' 设置总计行的数字格式为"0.00"
        .TotalsRowRange.NumberFormat = "0.00"
    End If
End With
    
End Sub

关键改进说明 #

• 优化表格对象调用：先将Table1赋值给变量objListObj，避免重复访问ActiveSheet.ListObjects，提升代码执行效率。
• 批量处理平均值列：把需要设置平均值的列索引存入数组，通过循环一次性完成设置，替代原代码中大量重复的行。
• 正确设置格式时机：在启用总计行（.ShowTotals = True）之后再访问TotalsRowRange，确保该区域已创建，同时增加非空判断避免异常。

原问题原因排查 #

你之前尝试objListObj.TotalsRowRange.NumberFormat未生效，大概率是两个原因：

1. 原代码中并未实际添加这行格式设置的代码
2. 可能在启用总计行之前就尝试访问TotalsRowRange，此时该区域还未生成

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