【Excel VBA】圧倒的に簡単！中央値（中央値）の計算方法とは？

2025.08.312026.09.04

Excel VBAを使った「中央値」の計算方法を学びたいと思っているあなたへ。実は、Excelには「中央値」を求める関数が用意されていますが、VBAで自動化すると、さらに便利で効率的に作業を進めることができます。この記事では、VBAを使って中央値を計算する方法を、初心者にもわかりやすく解説します。さらに、VBAで実装する際に役立つテクニックや注意点も紹介しますので、ぜひ最後まで読んでみてください。

VBAで中央値を計算する基本的な方法
VBAを使った中央値計算の応用
Excel VBAで「中央値」に関する疑問解決
まとめ

VBAで中央値を計算する基本的な方法

Excelのイメージ

VBAを使って中央値（中央値）を計算する方法は非常に簡単です。まず、Excelには`WorksheetFunction.Median`という便利な関数が用意されており、この関数をVBAから呼び出すだけで、データの中央値を簡単に求めることができます。

### 1. WorksheetFunction.Median関数を使う

`WorksheetFunction.Median`は、指定した範囲または数値の中央値を計算するための関数です。例えば、セル範囲A1\:A10に入力されているデータの中央値を求める場合、以下のようなコードを書きます。

vba

Sub 中央値の計算()

    Dim 中央値 As Double

    中央値 = WorksheetFunction.Median(Range("A1:A10"))

    MsgBox "中央値は " & 中央値

End Sub

このコードを実行すると、セルA1からA10の範囲にあるデータの中央値が計算され、メッセージボックスに表示されます。

### 2. 複数の範囲を指定する方法

中央値を計算する際、複数のセル範囲を指定することも可能です。例えば、A1からA10の範囲とB1からB10の範囲を合わせて中央値を計算したい場合は、以下のようにします。

vba

Sub 複数範囲の中央値()

    Dim 中央値 As Double

    中央値 = WorksheetFunction.Median(Range("A1:A10"), Range("B1:B10"))

    MsgBox "中央値は " & 中央値

End Sub

このコードでは、A列とB列のデータを合わせて中央値を求めています。

VBAを使った中央値計算の応用

単純な中央値計算に加えて、VBAではもっと柔軟な方法で中央値を求めることができます。次は、ユーザーから入力された範囲や動的なデータを扱う方法を紹介します。

### 1. ユーザーが指定した範囲を中央値として計算

以下のコードは、ユーザーが指定した範囲を入力ボックスで受け取り、その範囲の中央値を計算して表示する方法です。

vba

Sub ユーザー指定範囲中央値()

    Dim 範囲 As Range

    Dim 中央値 As Double
    On Error Resume Next

    Set 範囲 = Application.InputBox("中央値を計算する範囲を選んでください", Type:=8)

    On Error GoTo 0

If Not 範囲 Is Nothing Then 中央値 = WorksheetFunction.Median(範囲) MsgBox "中央値は " & 中央値 Else MsgBox "範囲が選択されませんでした" End If End Sub

このコードでは、`InputBox`を使って範囲を動的に受け取り、その範囲の中央値を計算します。ユーザーが範囲を選択しない場合には警告メッセージが表示されます。

### 2. 配列を使った中央値の計算

VBAでは配列を使って、さらに柔軟に中央値を計算することもできます。例えば、配列に入力されたデータの中央値を計算したい場合は、次のように書きます。

vba

Sub 配列の中央値()

    Dim データ() As Double

    Dim 中央値 As Double
    ' 配列にデータを格納

    データ = Array(5, 12, 18, 7, 9, 11, 15)
    ' 配列の中央値を計算

    中央値 = WorksheetFunction.Median(データ)

MsgBox "配列の中央値は " & 中央値 End Sub

配列を使うことで、セル範囲に依存せず、VBA内で直接データを扱うことができ、より柔軟に中央値を求めることができます。

Excel VBAで「中央値」に関する疑問解決

ここでは、読者が持つかもしれない「中央値」に関する疑問を解決します。

Q1: Median関数で空白やエラー値が含まれている場合はどうなるのか？

空白のセルやエラー値が含まれている場合、`Median`関数はそれらを無視して計算します。例えば、セル範囲に空白があっても、そのセルは計算に影響を与えません。しかし、エラー値がある場合は、そのエラーが計算結果に影響を与える可能性があります。

Q2: 複数のセル範囲を使った場合、どの順番で中央値を求めるのか？

複数の範囲を指定する場合、`Median`関数は範囲に含まれるすべてのデータを統合して中央値を求めます。順番には特に依存せず、単に全データを1つのセットとして扱います。

Q3: VBAで中央値を自動的に更新するには？

中央値を自動的に更新するには、セルの変更を検知して自動でVBAコードを実行する方法があります。例えば、セルが変更された時に自動で中央値を再計算するイベントハンドラを使用できます。

vba

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then

        MsgBox "中央値は " & WorksheetFunction.Median(Range("A1:A10"))

    End If

End Sub

このコードをワークシートに追加すると、A1\:A10の範囲に変更があった際に自動で中央値が表示されます。

まとめ

Excel VBAを使って中央値を求める方法は非常にシンプルで、さまざまな応用が可能です。基本的な`WorksheetFunction.Median`関数を使うだけでなく、ユーザー入力を受け取ったり、配列を使って動的にデータを扱うこともできます。中央値を正しく計算することで、データ分析の精度が向上し、業務効率も改善されるでしょう。

VBAの使い方を覚えることで、Excelでの作業が格段にスムーズになります。ぜひ、この記事を参考にして、自分の作業をもっと効率的に進めてください。