非表示の列を除いて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. OKをクリックすると、表示されている列のみが合計されます。

使用すると、 Kutools for Excel表示されているセル/行/列でのカウントや平均の計算も可能です。スクリーンショットをご覧ください：

ヒント: Kutools for Excelをインストールした後、この数式 =SUMVISIBLE(A1:C9)/ =COUNTVISIBLE(A1:C9)/ =AVERAGEVISIBLE(A1:C9) を直接セルに入力して結果を得ることもできます。