Excelで非表示の列を除く値をすばやく合計するにはどうすればよいですか？

非表示の行を除く値を合計するには、式= SUBTOTAL（）を使用して解決できますが、非表示の列を無視して値を合計するのはどうでしょうか。 ここでは、この記事では、表示されている列のみの値をすばやく合計するための秘訣を紹介します。

VBAを使用して非表示の列を除く値を合計する

Kutools forExcelで非表示の列を除いた合計/平均/カウント

VBAを使用して非表示の列を除く値を合計する

これは、表示されている列のみをすばやく合計するのに役立つVBAコードです。

1。 押す Altキー+ F11 表示するキー 基本的なアプリケーションのためのMicrosoftVisual 窓。

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）、 押す 入力します キー、正しい合計結果が得られました。

ヒント： 式では、A1：C9は合計するセルです。

Kutools forExcelで非表示の列を除いた合計/平均/カウント

たぶんあなたはVBAコードに精通していないかもしれませんが、 Kutools for Excel インストールすると、このジョブをすばやく簡単に解決できます。

後 無料インストール Kutools for Excel、以下のようにしてください：

1.合計結果を表示する空白のセル（たとえばE1）を選択し、[ クツール > Kutools関数 > 統計と数学 > 可聴。 スクリーンショットを参照してください：

2。 の中に 関数の引数 ダイアログで、合計するセルをクリックして選択します。 参照 テキストボックス、および下部で計算結果をプレビューできます。 スクリーンショットを参照してください：

3。 クリック OK、および表示されている列のみが合計されています。

連絡先 Kutools for Excel、表示されているセル/行/列の平均をカウントまたは計算することもできます。 スクリーンショットを参照してください：

ヒント： この数式を直接入力することもできます = SUMVISIBLE（A1：C9）/ = COUNTVISIBLE（A1：C9）/ = AVERAGEVISIBLE（A1：C9） インストール後に結果を得るためにセルに Kutools for Excel.