異なるシートから平均セルを計算するには？

例えば、Sheet1からSheet5という名前のシートでA1:A10の範囲の平均売上を計算したい場合のように、複数のワークシートで同じ範囲の平均を計算する必要がある場合、Excelは直接公式ベースの解決策を提供します。このアプローチは、すべてのシートが同じ構造を持ち、一貫した命名がされている場合に最も適しています。

ステップ:

結果を表示したい空白のセルを選択し（例：セルC3）、次の数式を入力します：

=AVERAGE(Sheet1:Sheet5!A1:A10)

Enterキーを押すと、ExcelはSheet1からSheet5までのすべてのシートの指定された範囲の平均値を返します。

異なるシート間で異なる範囲の値を平均する必要がある場合は、それらを手動でリストアップすることができます：

=AVERAGE(A1:A5, Sheet2!A3:A6, Sheet3!A7:A9, Sheet4!A2:A10, Sheet5!A4:A7)

このバージョンは、シート間で範囲が異なる場合に役立ちます。それを結果セルに入力し、Enterキーを押します。

Kutools for Excelは、「ワークシート参照を自動的に増やす」機能を利用して、複数のワークシートから同じセルまたは範囲の値を抽出・統合する能力を向上させます。これは、一貫したレイアウトを持つ多数のシートを扱う際に特に役立ちます。

使用手順:

1. 新しいワークシート（例：サマリーシート）を開き、平均を計算したいセルを選択します（例：D7）。

2。「 Kutools > その他 （「 数式 」グループ内）> ワークシート参照を自動的に増やす.

3」。ダイアログボックス内で：
  - 「 塗りつぶし順序 」ドロップダウンから塗りつぶし順序を選択（例： 列ごとに塗りつぶしてから行ごとに塗りつぶす).
  - 「 ワークシートリスト」で、平均を取るセルを含むシートにチェックを入れます。
  - 「 範囲を設定」をクリックし、ダイアログを閉じます。

4. 選択されたセルの値が範囲（例：D7:D11）にリストされます。その後、別の空白セルに以下の数式を入力して平均を計算します：

=AVERAGE(D7:D11)

Enterキーを押して結果を得ます。これにより統合が簡略化されますが、新しく追加されたシートを自動的に拡張することはできません。シートリストが変わったときに再度この機能を実行する必要があります。

場合によっては、複数のワークシート全体で複数の対応するセルの平均を同時に計算する必要があるかもしれません。例えば、すべてのワークシートからA1、B1、およびC1の結果を集計する場合などです。標準的な数式ではこれが煩雑になることがありますが、Kutools for Excelの「データの統合」（ワークシートおよびワークブック）ユーティリティがこのプロセスを大幅に簡素化します。

この機能の使用方法:

1。「 Kutools Plus > データの統合 」を開いて「ワークシートの統合」ウィザードを開きます。

2。（ステップ 1/3）：
チェック 複数のワークブックからデータを統合して計算」をオンにし、「 次へ 」をクリックして続行します。

3。（ステップ 2/3）：
  - 「 ワークシートリスト.
」で、含めるワークシートを選択します。 参照 ボタン 」を使用して、平均を取る範囲を定義します。
  - 「 同じ範囲 」をクリックします（すべてのシートで範囲が同一の場合）。
  - 「 次へ 」をクリックして続行します。

4。（ステップ 3/3）：
選択 平均 」を「 関数 」ドロップダウンから選択します。必要に応じて行/列ラベルを設定し、「 完了.

5」をクリックします。ダイアログが表示され、現在の設定を将来の使用のためにシナリオとして保存するかどうか尋ねられます。必要に応じて「 はい 」または「 いいえ 」を選択します。

これで、定義された出力範囲内の各セルに、選択したすべてのワークシートからの対応するセルの平均が反映されます。この方法は、特に定期的な操作や大量の構造化されたデータを迅速に統合する場合に非常に便利です。

シート名が隣接していない、頻繁に変わる、または実行時に範囲を指定したい場合など、複数のワークシートにわたってセル平均を自動化する必要があるユーザーにとって、VBAマクロは効率的な解決策となります。この方法は、高度なユーザー向け、またはシートが頻繁に追加または名前変更されるワークブックに最適です。

次のVBAコードを使用すると、シート名とセル範囲を動的に入力し、リストされたすべてのシートで指定された範囲の平均を計算できます。これは、複雑で頻繁に更新されるワークブックから値を集約するのに理想的です。

このVBAソリューションを設定して使用する方法:

1. Excelの開発タブに移動します。表示されていない場合は、ファイル > オプション > リボンのユーザー設定で有効にします。Visual Basicをクリックしてエディターを開きます。その後、挿入 > モジュールに移動し、次のコードを貼り付けます：

Sub AverageAcrossSheets()
    Dim xSheetNames As String
    Dim xCellRange As String
    Dim xArr As Variant
    Dim xSheet As Worksheet
    Dim xTotal As Double
    Dim xCount As Long
    Dim i As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    xSheetNames = Application.InputBox("Enter sheet names separated by commas (e.g., Sheet1,Sheet3,Summary):", xTitleId, Type:=2)
    If xSheetNames = "" Then Exit Sub
    
    xCellRange = Application.InputBox("Enter cell or range to average (e.g., A1 or A1:B10):", xTitleId, Type:=2)
    If xCellRange = "" Then Exit Sub
    
    xArr = Split(xSheetNames, ",")
    xTotal = 0
    xCount = 0
    
    For i = LBound(xArr) To UBound(xArr)
        Set xSheet = Nothing
        Set xSheet = ThisWorkbook.Sheets(Trim(xArr(i)))
        
        If Not xSheet Is Nothing Then
            If Not IsError(Application.WorksheetFunction.Average(xSheet.Range(xCellRange))) Then
                xTotal = xTotal + Application.WorksheetFunction.Sum(xSheet.Range(xCellRange))
                xCount = xCount + xSheet.Range(xCellRange).Count
            End If
        End If
    Next i
    
    If xCount = 0 Then
        MsgBox "No valid data found!", vbExclamation, xTitleId
    Else
        MsgBox "The average across selected sheets and range is: " & xTotal / xCount, vbInformation, xTitleId
    End If
End Sub

2. マクロを実行するには、エディターでF5キーを押すか、エディターを閉じて開発 > マクロに移動し、AverageAcrossSheetsを選んで「実行」をクリックします。

3. プロンプトが表示されたら、カンマ区切りのワークシート名リスト（例： Sheet1,Sheet3,Summary ）を入力し、範囲（例： A1:A10 ）を指定します。

4. マクロは、各有効なシートから合計と件数を計算し、メッセージボックスに平均を表示します。

パラメータに関する注記:

• シート名は大文字と小文字を区別しませんが、正確に一致させる必要があります。
• 範囲は単一のセル、完全な列（例：B:B）、または矩形範囲（例：D2:E12）にすることができます。
• 無効または見つからないシートは黙ってスキップされます。