KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中根据多个条件计算中位数？

作者孙修改日期

在数据分析与报表制作中，计算数据集的中位数是一项常见且关键的操作。虽然使用标准 Excel 函数可以轻松求出简单范围的中位数，但在实际工作中，您往往需要从满足多个特定条件的数据中提取中位数值——例如，在大型数据集中找出某款产品在特定日期范围内的销售额中位数。仅依赖传统函数处理这类复杂的多条件计算，常常颇具挑战。本教程将为您介绍多种实用方法，助您在 Excel 中高效实现基于多条件的中位数计算，涵盖灵活的公式解决方案以及适用于高级需求的 VBA 自动化技巧。

根据多个条件计算中位数

假设您有一个如下所示的数据区域，任务是找出同时满足两个条件的中位数值：例如，在列 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 解决方案时，请确保所选区域长度一致，且条件与对应的数据类型和格式匹配（例如文本与日期）。若无任何值满足条件，输出将显示“无匹配项”。为确保稳定性，运行宏前请务必保存工作簿，并在提示时始终启用宏。此 VBA 解决方案适用于熟悉宏安全设置的用户，也适用于自动化 Excel 工作流。

总之，VBA 方法能自动化那些仅靠公式难以实现或操作繁琐的复杂中位数计算，尤其适用于条件多变、需频繁重新计算或处理大型数据集的场景。

相关文章：

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱