Excel で異なるシートにあるセルの平均を計算するには、どうすればよいですか？

複数のワークシートにわたって同じ範囲の平均を計算したい場合（たとえば、「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 > More（Formulaグループ内）> ワークシート参照を自動的に増やす」に移動します。

3。ダイアログボックスで、次の操作を行います：
- 塗りつぶし順序ドロップダウンから塗りつぶし順序を選択します（例：列ごとに塗りつぶしてから行ごとに塗りつぶす）。
- ワークシートリストで、平均を計算したいセルを含むシートにチェックを入れます。
- Fill Rangeをクリックして、ダイアログを閉じます。

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

=AVERAGE(D7:D11)

Enterキーを押して結果を取得しましょう。集計がぐっと簡単になりますが、新しく追加されたシートには自動的には適用されません。シート一覧に変更があった場合は、再度この機能を実行してください。

場合によっては、複数のワークシートにまたがる対応セル（例：すべてのワークシートの A1、B1、C1）の平均を一度に計算する必要があります。標準の数式では煩雑になりがちですが、Kutools for Excel のCombine（ワークシートおよびワークブック）ユーティリティを使えば、この作業が大幅に簡単になります。

この機能の使用方法：

1。 「KUTOOLS PLUS」の「Combine」をクリックして、ワークシートの統合ウィザードを開きます。

2。ウィザード（ステップ1／3）で、「複数のワークブックからデータを統合して計算」にチェックを入れ、「Next」をクリックして次へ進みます。

3。2 / 3 ステップで：
- 「ワークシートリスト」の下で、含めるワークシートを選択します。
- 「Browse」ボタンを使用して、平均を計算する範囲を指定します。
- すべてのシートで範囲が同一の場合は、「Same Range 」をクリックします。
- 「Next 」をクリックして次に進みます。

4。3 / 3 ステップで：
「Average」を「Function」ドロップダウンから選択し、必要に応じて行／列ラベルを設定して「Finish」をクリックします。

5。ダイアログが表示され、「現在の設定をシナリオとして保存しますか？」と尋ねられます。必要に応じて「Yes」または「No」を選択してください。

これで、定義したリスト配置エリア内の各セルが、すべての選択したワークシートの対応セルの平均を反映します。この方法は、定期的な操作や大量の構造化データを迅速に集計する場合に特に有効です。

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

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

この VBA ソリューションの設定と使用方法：

1。Excel の「Developer」タブに移動します。「Developer」タブが表示されていない場合は、「ファイル > オプション > リボンのユーザー設定」から有効化してください。「Visual Basic」をクリックしてエディタを開き、「挿入 > Module」を選択して、次のコードを貼り付けてください。

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キーを押すか、エディタを閉じて「Developer > Macros」に移動し、「AverageAcrossSheets」を選択して「Run」をクリックしてください。

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

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

パラメーターの注意点：

• シート名は大文字と小文字を区別しませんが、完全に一致する必要があります。
• 範囲は、単一セル、列全体（例：B:B）、または長方形の範囲（例：D2:E12）にできます。
• 無効または存在しないシートは、エラー表示なしでスキップされます。