如何在 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 後獲得結果。