如何在Excel中快速对排除隐藏列的数值求和？

要对排除隐藏行的数值求和，可以使用公式 =SUBTOTAL() 来解决，但如果是忽略隐藏列进行求和呢？本文将介绍如何快速仅对可见列中的数值求和的技巧。

使用VBA对排除隐藏列的值求和

使用Kutools for Excel对排除隐藏列的值求和/平均值/计数

使用VBA对排除隐藏列的值求和

这里有一个VBA代码可以帮助您快速仅对可见列求和。

1. 按 Alt + F11 键打开 Microsoft Visual for Basic Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到新的 模块 窗口中。

VBA：仅对可见列的值求和

Public Function SumVisible(Rg As Range) As Double
'UpdatebyExtendOffice20160302
    Dim xCell As Range
    Dim xRg As Range
    Dim xOutRg As Range
    On Error Resume Next
    Application.Volatile
    Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange)
    If Not (xRg Is Nothing) Then
        For Each xCell In xRg
            If (xCell.EntireRow.Hidden = False) And _
               (xCell.EntireColumn.Hidden = False) Then
                If xOutRg Is Nothing Then
                    Set xOutRg = xCell
                Else
                    Set xOutRg = Application.Union(xCell, xOutRg)
                End If
            End If
        Next
    End If
    If Not xOutRg Is Nothing Then
        SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")")
    Else
        SumVisible = 0
    End If
End Function

3. 保存代码并关闭窗口，然后返回选择一个空白单元格用于放置计算结果，并输入公式 =SumVisible(A1:C9)，按 Enter 键，正确的求和结果就会出现。

提示：在公式中，A1:C9 是您要求和的单元格范围。

使用Kutools for Excel对排除隐藏列的值求和/平均值/计数

也许您不熟悉VBA代码，但如果您安装了 Kutools for Excel，您可以快速轻松地完成这项任务。

1. 选择一个空白单元格用于放置求和结果，例如E1，并点击 Kutools > Kutools 函数 > 统计与数学 > SUMVISIBLE。参见截图：

2. 在 函数参数 对话框中，点击选择要进行求和的单元格，并将其放入 引用 文本框中，您可以在底部预览计算结果。参见截图：

3. 点击 确定，并且只有可见列会被求和。

通过 Kutools for Excel，您还可以对可见单元格/行/列进行计数或计算平均值。参见截图：

提示：您还可以直接在单元格中输入公式 =SUMVISIBLE(A1:C9)/ =COUNTVISIBLE(A1:C9)/ =AVERAGEVISIBLE(A1:C9) 来获取结果，前提是已安装 Kutools for Excel。