如何在 Excel 中根據多個條件計算中位數？

作者孫修改日期2025-07-10

在數據分析與報表製作中，計算資料集的中位數是常見且關鍵的操作。雖然標準 Excel 函數能快速取得簡單範圍的中位數，但實際應用往往更為複雜：您可能需要針對同時符合多項特定條件的資料計算中位數——例如，在龐大資料集中找出特定產品於特定日期的銷售金額中位數。若僅依賴傳統函數處理此類多重條件運算，將面臨極大挑戰。本教學將介紹多種實用方法，協助您在 Excel 中輕鬆根據多個條件計算中位數，涵蓋以公式為基礎的解決方案，以及針對進階需求運用 VBA 自動化的技巧。

根據多個條件計算中位數
VBA 程式碼－根據多個條件計算中位數

根據多個條件計算中位數

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

假設您擁有如下所示的數據區域，任務是找出同時符合兩個條件的中位數值：例如，當欄位 A 的值為「a」且欄位 C 的日期為「1 月 2 日」時，求取欄位 B 的中位數。此類需求在銷售報表、班級測驗成績，以及其他需依據多個條件篩選的商業或學術數據分析中尤為常見。

原始資料的螢幕截圖

為便於理解，請依下列方式準備您的工作表：在 Excel 工作表中輸入條件，並建立如下方圖片所示的版面配置——其中 E 欄列出 A 欄的條件，而 F 欄及其右側的第 1 列則對應 C 欄的日期條件。

輸入所需新資料的螢幕截圖

若要計算符合多項條件的中位數，可使用陣列公式，結合 MEDIAN 與 IF 函數，根據條件篩選出對應的數值清單。操作步驟如下：

1. 點選您希望顯示中位數結果的儲存格 F2，並輸入下列公式：

=MEDIAN(IF($A$2:$A$12=$E2,IF($C$2:$C$12=F$1,$B$2:$B$12)))

此公式會逐列檢查：當欄位 A 的值符合 E2 中的條件，且欄位 C 的值與 F1 中的標題相符時，便將該列欄位 B 的數值納入中位數計算。

2. 輸入公式後，請按 Ctrl + Shift + Enter（而非僅按 Enter），因為這是陣列公式。Excel 將自動在公式前後加上大括號{ }，標示該公式為陣列公式。

3. 從 F2 儲存格右下角拖曳填滿控點，將公式複製到其他需根據不同條件計算中位數的相關儲存格，如下圖所示：

使用公式的螢幕截圖

參數說明與使用提示：公式中，$A$2:$A$12 為包含第一個條件（例如產品名稱）的範圍，$C$2:$C$12 為第二個條件（例如日期）的範圍，而 $B$2:$B$12 則是您要計算中位數的數值範圍。請依您的工作表實際情況調整這些範圍。複製公式時，務必使用絕對參照（$ 符號），以確保引用範圍不會偏移！

注意事項：若無任何數值符合兩項條件，公式將傳回 #NUM!錯誤。為避免混淆，可將公式嵌套於 IFERROR 函數中，以傳回空白或自訂訊息：

=IFERROR(MEDIAN(IF($A$2:$A$12=$E2,IF($C$2:$C$12=F$1,$B$2:$B$12))),"No match")

請確保中位數欄位中的資料不含空白儲存格或非數值內容，以免影響計算結果。

此公式方法適用於條件相對簡單的情境（通常最多兩到三個條件），設定快速且無需任何程式設計技能。然而，在處理動態條件或大型資料集的複雜篩選時，維護或編輯陣列公式可能會變得繁瑣。

VBA 程式碼－根據多個條件計算中位數

當您需要自動化條件中位數計算時——例如條件繁多、資料集龐大，或條件本身經常變動——VBA 解決方案便成為極其實用的選擇。透過 VBA，您能打造可重複使用的巨集，輕鬆根據任意數量的條件計算中位數。若您希望簡化重複性分析，或為報表與儀表板建立專屬的 Excel 自動化流程，VBA 方案尤其值得考慮。

請依照下列步驟使用 VBA 進行條件中位數計算：

1. 點選開發人員工具＞Visual Basic，即可開啟全新的 Microsoft Visual Basic for Applications 視窗。接著點選插入＞模組，並將下列程式碼貼入模組中：

Sub ConditionalMedian()
    Dim DataRange As Range
    Dim CriteriaRange1 As Range
    Dim CriteriaRange2 As Range
    Dim OutputRange As Range
    Dim Criteria1 As Variant
    Dim Criteria2 As Variant
    Dim TempArr() As Double
    Dim i As Long
    Dim j As Long
    Dim count As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set DataRange = Application.InputBox("Select the range containing median values (e.g., B2:B12):", xTitleId, "", Type:=8)
    Set CriteriaRange1 = Application.InputBox("Select the first criteria range (e.g., A2:A12):", xTitleId, "", Type:=8)
    Criteria1 = Application.InputBox("Enter the first criteria value (e.g., a):", xTitleId, "", Type:=2)
    Set CriteriaRange2 = Application.InputBox("Select the second criteria range (e.g., C2:C12):", xTitleId, "", Type:=8)
    Criteria2 = Application.InputBox("Enter the second criteria value (e.g.,2-Jan):", xTitleId, "", Type:=2)
    Set OutputRange = Application.InputBox("Select the cell to output the result:", xTitleId, "", Type:=8)
    
    count = 0
    For i = 1 To DataRange.Rows.count
        If StrComp(CStr(CriteriaRange1.Cells(i, 1).Value), CStr(Criteria1), vbTextCompare) = 0 And _
           CStr(CriteriaRange2.Cells(i, 1).Value) = CStr(Criteria2) Then
            ReDim Preserve TempArr(count)
            TempArr(count) = DataRange.Cells(i, 1).Value
            count = count + 1
        End If
    Next i
    
    If count = 0 Then
        OutputRange.Value = "No match"
    Else
        Call QuickSort(TempArr, LBound(TempArr), UBound(TempArr))
        If count Mod 2 = 1 Then
            OutputRange.Value = TempArr(count \ 2)
        Else
            OutputRange.Value = (TempArr(count \ 2) + TempArr(count \ 2 - 1)) / 2
        End If
    End If
End Sub

Sub QuickSort(arr() As Double, first As Long, last As Long)
    Dim i As Long
    Dim j As Long
    Dim pivot As Double
    Dim temp As Double
    
    i = first
    j = last
    pivot = arr((first + last) \ 2)
    
    Do While i <= j
        Do While arr(i) < pivot
            i = i + 1
        Loop
        
        Do While arr(j) > pivot
            j = j - 1
        Loop
        
        If i <= j Then
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
            i = i + 1
            j = j - 1
        End If
    Loop
    
    If first < j Then
        QuickSort arr, first, j
    End If
    
    If i < last Then
        QuickSort arr, i, last
    End If
End Sub

2. 點選按鈕（或按下 F5）執行程式碼，系統將提示您依序選取所需範圍並輸入條件。完成所有提示後，符合全部條件的中位數結果將自動輸出至您指定的目標儲存格！

此巨集讓您每次執行時，都能靈活選取數值範圍、條件範圍、條件值及結果輸出位置，並可輕鬆修改程式碼以納入更多條件。

提示與疑難排解：使用 VBA 解決方案時，請確保所有選取區域的長度一致，且條件的資料類型與格式正確（例如文字或日期）。若無任何數值符合條件，輸出將顯示「No match。」。為確保操作穩定，執行巨集前請務必儲存活頁簿，並於提示時啟用巨集。此 VBA 解決方案適合熟悉巨集安全性設定的使用者，能有效自動化您的 Excel 工作流程！

總結來說，VBA 方法能自動化那些僅靠公式難以處理或過於繁瑣的複雜中位數計算，尤其適合應用於條件多變、需頻繁重新計算，以及處理大型資料集的情境。

在範圍內計算中位數

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多