Excel で最低点を除外したうえで、残りの値の平均または合計を求めるには？

著者Xiaoyang変更日2025-08-12

Excel で成績やスコアのリストを扱う際、学生の最終成績を算出するにあたり、最低点または下位 n 件のスコアを除外し、残りの値の平均または合計を求める必要がある場合があります。これは教育現場でよく見られる要件で、異常値の影響を抑えたり、公平性を高めたりするために、学生が最も低い成績をカットできるようにするものです。こうした操作を手動で行うと、特に大規模なデータセットや頻繁な計算調整が必要な場合には非常に煩雑になります。幸いにも、Excel には簡単な数式からバッチ処理向けの VBA による自動化まで、この処理を実現するための柔軟な方法がさまざま用意されています。

数式で最低点を除外し、平均または合計を求める

VBA コード - 最低点または最低の n 個の成績を自動的に除外し、合計または平均を計算

数式で最低点を除外し、平均または合計を求める

データの行またはリストから最小値、あるいは最小の n 個の値を除外したうえで、残りの数値について平均や合計などを計算したい場合、Excel の組み込み関数を使った数式が実用的な解決策を提供します。このアプローチは、対象となる行数が中程度である場合や、透明性と柔軟な調整を重視して数式ベースの方法を好む場合に特に有効です。

以下に、合計と平均のそれぞれについて、詳細な手順と柔軟に活用するための実践的なヒントをご紹介します。

数値を合計するが、最低値または最低の N 個の数値を除外する：

各行またはリストの合計を計算する際に、最低値を除外するには、次の方法をご利用ください。

1。最初の行の合計を表示したい空白セル（たとえば、データが B2:H2 にある場合はセル I2）を選択し、次の数式を入力してください。

=SUM(B2:H2)-SMALL(B2:H2,1)

2。Enterキーを押して確定し、必要に応じてフィルハンドルを下にドラッグしてこの数式を他の行にも適用してください。これにより、各行の数値の合計が求められますが、最低値は除外されます。

参考として、以下のスクリーンショットをご覧ください。

数値を合計するが、数式で最小値を除外

注記とヒント：

最小値を2 つ、3 つ、またはそれ以上除外するには、数式を拡張して、追加のSMALL 関数の結果を引いてください。例：

=SUM(B2:H2)-SMALL(B2:H2,1)-SMALL(B2:H2,2)

=SUM(B2:H2)-SMALL(B2:H2,1)-SMALL(B2:H2,2)-SMALL(B2:H2,3)

=SUM(B2:H2)-SMALL(B2:H2,1)-SMALL(B2:H2,2)-SMALL(B2:H2,3)-...-SMALL(B2:H2,n)

これらの数式では、B2:H2が合計したい範囲で、数値1、2、3 などは除外する最小の n 個の数値を指定します。除外したい最低点の個数に応じて、nを調整してください。
nを「値の総数」以上に設定しないようご注意ください。設定した場合、エラーが発生したり、意図しない結果となる可能性があります。
これらの数式は各行に対して個別に機能します。データが行ではなく列にまたがっている場合は、範囲を適宜調整してください。
データセットに最小値が重複している場合、SMALL(B2:H2,1)は参照ごとに最初の1 つの出現のみを除外します。複数の重複をすべて除外するには、上記のように k の値をインクリメントしながらSMALL 関数を繰り返し使用してください。

数値の平均を求めるが、最低値または最低の N 個の数値を除外する：

最低値、または最も低い n 個の値を除外して平均を計算するには、以下の数式をご利用いただけます。この計算方法は、外れ値となる低い成績を平均に含めたくない評価方式に特に有効です。

1。平均結果を表示するセル（たとえば、スコアが B2:H2 にある場合は J2）を選択し、次の数式を入力してください。

=(SUM(B2:H2)-SMALL(B2:H2,1))/(COUNT(B2:H2)-1)

2。Enter キーを押した後、必要に応じて数式を下方向にドラッグして他の行の平均も求められます。各行の範囲内で、その都度最低スコアが自動的に除外されます。

数値の平均を求めるが、数式で最小値を除外

注記と重要なガイダンス：

1 つ以上の最低点を除外して平均を求めるには、追加のSMALL 項を引いたうえで、除数をそれに応じて減らすように数式を拡張します。

=(SUM(B2:H2)-SMALL(B2:H2,1)-SMALL(B2:H2,2))/(COUNT(B2:H2)-2)

=(SUM(B2:H2)-SMALL(B2:H2,1)-SMALL(B2:H2,2)-SMALL(B2:H2,3))/(COUNT(B2:H2)-3)

=(SUM(B2:H2)-SMALL(B2:H2,1)-SMALL(B2:H2,2)-SMALL(B2:H2,3)-...-SMALL(B2:H2,n))/(COUNT(B2:H2)-n)

ここでも、B2:H2は平均を求める範囲で、nは計算から除外する最低値の個数を表します。
範囲内の数値の個数よりも多い数値を引こうとすると、数式は#NUM!エラーを返します。これは、平均計算に十分な値が存在しないことを示しています。必ずnが数値の個数より小さくなるようにしてください。
除外する前に、その最低値が計算において重要でないか必須でないことを必ず再確認してください。そうでないと、最終的な結果に影響を及ぼす可能性があります。
非常に大規模なデータセットを扱う場合や、動的に最小の n 個の値を除外する必要がある場合は、自動化された方法または配列数式による解決策をご検討ください。

KUTOOLS AI でExcel の魔法を解き放ちましょう

スマート実行：セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
カスタム数式：ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
VBA コーディング：VBA コードを簡単に記述・実装できます。
数式の解釈：複雑な数式が簡単に理解できます。
テキスト翻訳：スプレッドシート内で言語の壁を乗り越えましょう！

AI 搭載のツールでExcel の機能をさらに強化しましょう。今すぐダウンロードして、これまでにない効率を体験してください！

VBA コード - 最低点または最低の n 個の成績を自動的に除外し、合計または平均を計算

大規模なデータセットや頻繁に更新されるデータを扱う際、または多数の行にわたり自動的に下位 n 件の成績を除外して合計や平均を算出したい場合は、VBA を使うことで繰り返し作業を大幅に効率化できます。VBA マクロを使えば、データ範囲と除外する最低成績の個数を指定するだけで、選択したすべての行を一括でスピーディーかつ簡単に処理できます。

この自動化アプローチは、複数クラスのシートを管理する教員や、手動での数式入力を最小限に抑え、潜在的なエラーを減らしたいユーザーに特に役立ちます。以下の解決策では、除外する項目数とターゲット関数（合計または平均）の両方を簡単に調整できます。

開始する前に、マクロの実行は取り消せませんので、必ずブックを保存してください。

1。開発 > Visual Basicをクリックします。Microsoft Visual Basic for Applicationsウィンドウで、挿入 > 標準モジュールをクリックし、次のコードを入力してください。

Sub DropLowestNandCalculate()
    Dim WorkRng As Range
    Dim OutputRng As Range
    Dim n As Integer
    Dim FuncType As String
    Dim i As Integer, j As Integer, k As Integer
    Dim Arr() As Variant, TempArr() As Double
    Dim RowSum As Double
    Dim RowCount As Integer
    Dim MinIdx() As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select the score range (rows to process):", xTitleId, WorkRng.Address, Type:=8)
    
    Set OutputRng = Application.InputBox("Select output cells (top-left for results):", xTitleId, WorkRng.Offset(0, WorkRng.Columns.Count).Cells(1, 1).Address, Type:=8)
    
    n = Application.InputBox("Number of lowest grades to drop (n):", xTitleId, "1", Type:=1)
    
    FuncType = Application.InputBox("Type 'SUM' to calculate total or 'AVG' to calculate average (not case sensitive):", xTitleId, "AVG", Type:=2)
    
    For i = 1 To WorkRng.Rows.Count
        Arr = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(WorkRng.Rows(i).Value))
        RowCount = UBound(Arr)
        
        ReDim TempArr(1 To RowCount)
        For j = 1 To RowCount
            TempArr(j) = Arr(j)
        Next j
        
        ' Mark n lowest values as used by setting to very high number
        For k = 1 To n
            Dim MinVal As Double, MinPos As Integer
            MinVal = Application.WorksheetFunction.Min(TempArr)
            
            For j = 1 To RowCount
                If TempArr(j) = MinVal Then
                    TempArr(j) = 1E+308
                    Exit For
                End If
            Next j
        Next k
        
        RowSum = 0
        Dim ValidCount As Integer
        ValidCount = 0
        
        For j = 1 To RowCount
            If TempArr(j) <> 1E+308 Then
                RowSum = RowSum + Arr(j)
                ValidCount = ValidCount + 1
            End If
        Next j
        
        If UCase(FuncType) = "AVG" Then
            If ValidCount = 0 Then
                OutputRng.Cells(i, 1).Value = "N/A"
            Else
                OutputRng.Cells(i, 1).Value = RowSum / ValidCount
            End If
        Else
            OutputRng.Cells(i, 1).Value = RowSum
        End If
    Next i
End Sub

2。コードを追加した後、実行ボタンをクリックするか、F5キーを押して実行します。

3。表示されるプロンプトに従って操作してください。

処理したい成績の範囲を選択してください（各学生の成績が1 行に並んでいることをご確認ください）。
リスト配置エリアの左上セルを選択してください（出力は行数に応じて下方向に展開されます）。
除外する最低点の個数を入力してください（例：1を指定すると、各行の最低点のみが除外されます）。
合計（除外された成績を除く）を取得するにはSUMを、再計算された平均（除外された成績を除く）を取得するにはAVGを入力してください。

このマクロは、指定された成績範囲の各行を処理し、選択した「合計」または「平均」のいずれかをリスト配置エリアに出力します。ある行のすべての成績が除外された場合は、エラーを回避するため、結果がN/Aとマークされます。

入力範囲がデータ構造（1 行につき1 人の学生の成績）と一致していることをご確認ください。
数値以外のセル（空白やテキストなど）は、デフォルトで無視されます。
この VBA コードは、クラス全体の採点計算を繰り返し行う作業を大幅に高速化し、除外する成績の個数を柔軟に調整できるようにサポートします。
このような操作を頻繁に行う場合は、このマクロをワークシート上のボタンに割り当てれば、さらに素早くアクセスできます。

出力が正しくない、またはエラーが発生するなどの問題が生じた場合は、範囲が正確に指定されていること、および「n」が各行の利用可能な成績の総数を超えていないことを再度ご確認ください。

最高点と最低点の両方を除外する、または行ではなく列を処理するなど、同様の自動化要件がある場合は、VBA コードのロジックを少し調整することで対応できます。

最高の 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 の詳細はこちら。。。無料ダウンロード。。。