Excel でゼロを除いた非隣接（連続していない）セルの平均を求める方法は？

著者Siluvia変更日2025-09-10

Excel でデータを扱う際、一連の数値の平均を計算する必要がよくありますが、対象となるセルが必ずしも隣接しているとは限りません。さらに、ゼロ値（欠損データや意図的にゼロにされたエントリを表す場合があります）を除外したいケースも多いでしょう。たとえば、売上や在庫シートでは、特定の商品が特定の日に売上ゼロまたは在庫なしとなることがあります。こうしたゼロを含めて単純に平均を計算すると、結果が歪められ、データの実際のトレンドを正確に把握できなくなってしまいます。ゼロを除外することで、アクティブなデータポイントのみに基づいた分析が可能になります。

以下のようなスクリーンショットの果物テーブルがあり、数量列のセルからゼロを除いた平均値を求めたいとします。ここでは、Excel でこれを実現するための実用的な方法をいくつかご紹介します。データが非隣接セルに分散していたり、複数の行や列にわたっていたりする場合でも、またExcel の組み込み機能やシンプルな数式を使いたい場合でも、柔軟に対応できます。

ゼロを除いた非隣接セルの平均値を計算するために使用されるExcelテーブルのスクリーンショット

数式を使用して、ゼロを除いた非隣接セルの平均を求める
VBA マクロを使用して、ゼロを除いた非隣接セルの平均を求める
Excel の組み込み関数を使用して、ゼロを除いた非隣接セルの平均を求める

数式を使用して、ゼロを除いた非隣接セルの平均を求める

この方法では配列数式を使って、非隣接セル（たとえば行や列内で1 つおきのセル）の平均を素早く計算し、選択範囲内のゼロ値を自動的に除外します。対象セルが一定の間隔パターンに従っている場合にご利用いただけ、特に隔日の数値など定期的なデータや、規則的な間隔で配置されながらも隣接していないデータの処理に最適です。

制限事項：このアプローチは、非隣接セルが一定の間隔で配置されている場合に最適です。手動で任意のセルを選択する場合は、以下の数式ベースの方法をご参照ください。

1。結果を表示したい空白セルを選択し、次の配列数式を入力してください：

=AVERAGE(IF(MOD(COLUMN(C2:G2)-COLUMN(C2),2)=0,IF(C2:G2,C2:G2)))

次に、Ctrl＋Shift＋Enterキーを同時に押してください（古いバージョンのExcel の場合）。Excel 365 またはExcel 2019 では動的配列がサポートされているため、Enterキーを押すだけで十分です。

Excelで非隣接セルの平均値を求める数式を示すスクリーンショット

注：数式中の C2 および G2 は、対象範囲の先頭セルと末尾セルを表します。「2」は列の間隔を示しており、非隣接セルが異なる列数で区切られている場合は、この値を適宜調整してください。範囲（C2:G2）と間隔（2）は、実際のデータレイアウトに合わせて変更してください。

ヒント：

選択した範囲に、平均を計算したいすべての非隣接セルが含まれていることをご確認ください。
データの選択が一定の間隔に基づいていない場合は、任意のセルに対応する以下の数式ベースのソリューションをご活用ください。
この数式は、空白セルとゼロ値を自動的に除外し、意味のあるデータポイントの真の平均値を正確に算出します。
エラーを回避するには、セル参照が正しいことを確認し、古いバージョンのExcel で配列数式を使用する際に必要なキーボードショートカットを確実に押してください。

VBA マクロを使用して、ゼロを除いた非隣接セルの平均を求める

ゼロを除外しながら非隣接セルのグループの平均を素早く求めたい場合、かつ選択が一定のパターンに従っていないとき（たとえば、異なる行や列にまたがる特定のセルを手動で選択したい場合）には、VBA マクロが柔軟で強力なソリューションを提供します。このコードは選択したセルをループ処理し、ゼロを含むセルを除外して平均値を計算します。

この方法は、以下の用途に最適です：

大規模または不規則なデータ選択を素早く処理。
同じデータセットに繰り返し適用できるカスタムロジックを保存する。
複雑な選択において、従来のワークシート数式の制限を回避する。

1。開発＞Visual Basicをクリックします。開いたウィンドウで、挿入＞標準モジュールをクリックし、次のコードをモジュールに貼り付けてください：

Sub AverageNonAdjacentExcludeZero()
    Dim rng As Range
    Dim cell As Range
    Dim SumVal As Double
    Dim CountVal As Long
    Dim SelectedRng As Range
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set SelectedRng = Application.Selection
    Set SelectedRng = Application.InputBox("Select non-adjacent cells to average (exclude zeros)", xTitleId, Type:=8)
    
    On Error Resume Next
    SumVal = 0
    CountVal = 0
    
    For Each cell In SelectedRng
        If IsNumeric(cell.Value) And cell.Value <> 0 Then
            SumVal = SumVal + cell.Value
            CountVal = CountVal + 1
        End If
    Next
    
    If CountVal > 0 Then
        MsgBox "Average (excluding zeros): " & SumVal / CountVal, vbInformation, xTitleId
    Else
        MsgBox "No non-zero numeric cells selected.", vbExclamation, xTitleId
    End If
End Sub

2。VBA エディターで実行ボタンをクリックするか、F5キーを押してください。セルを選択するダイアログが表示されます。マウスとCtrlキーを使って、平均を計算したい非隣接セルをクリックして選択し、OKをクリックすると、マクロがゼロを除外した結果を表示します。

Excel の組み込み関数を使用して、ゼロを除いた非隣接セルの平均を求める

Excel には、このタスクを数式を使わず、あるいは最小限の手間で処理できる組み込み機能もあり、一時的な計算や視覚的な確認に最適です。

ステータスバーを使用する：

Ctrl キーを押しながらマウスで平均を計算したい非隣接セルをひとつずつ手動で選択し、ゼロ値を含むセルはスキップしてください。
セルを選択後、ウィンドウ右下隅のExcel ステータスバーを確認してください。平均値は、2 つ以上のセルが選択されている場合に自動的に表示されます。
この方法は、視覚的な確認や小規模なデータセットには高速ですが、ワークシートのセルには結果が表示されません。

適切な方法を選ぶ際は、データのサイズや選択セルの散らばり具合、そして「再利用可能な数式出力が必要か」それとも「単なる視覚的な確認で十分か」をしっかり考慮してください。エラー（例：#DIV/0!）が発生した場合は、選択範囲内に少なくとも1 つゼロ以外の値が含まれていることを確認してください。VBA を使用する場合は、誤ったデータ損失を防ぐため、新しいマクロを実行する前に必ずブックを保存しましょう。

Kutools for Excel の「行/列を間隔で選択」機能を使用すると、下記のスクリーンショットのように、Excel で指定範囲内の間隔行または間隔列を簡単に選択できます。数式やマクロを使用する前に、処理したいセルを正確に選ぶのに最適です。

Kutools for Excel 間隔を空けた行と列を選択するユーティリティのスクリーンショット

Kutools for Excel— 300 以上の必須ツールでExcel を強化し、作業をより迅速・簡単に。AI 機能を活用して、スマートなデータ処理と生産性の飛躍的な向上を実現します。今すぐ入手

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。