VBA技术求助：按A列ID计算对应B列中位数并输出至D、E列

刚接触VBA的时候遇到分组统计的问题确实容易卡壳，结合你提到的@Michal Turczyn的协助要点，我整理了一套完整的解决方案，连踩坑的注意事项都帮你加上了：

重要提醒：必须先按A列（ID列）排序再运行代码！如果不排序，分组逻辑会无法准确识别同一ID的所有数据行，导致计算结果错误。

核心实现步骤 #

• 遍历A列，识别重复出现的ID分组
• 收集每个ID对应的B列所有数据，计算中位数
• 将唯一ID和对应中位数依次写入D、E列

完整VBA代码 #

Sub CalculateMedianByID()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim currentID As String
    Dim dataRange As Range
    Dim medianVal As Double
    Dim outputRow As Long
    
    ' 指定要操作的工作表，可根据实际修改为工作表名称（如Sheet1）
    Set ws = ThisWorkbook.ActiveSheet
    ' 获取A列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    outputRow = 2 ' 假设D1、E1是表头，从第2行开始输出结果
    
    ' 自动校验A列是否已排序，避免出错
    If Not IsSorted(ws.Range("A2:A" & lastRow)) Then
        MsgBox "请先按A列（ID列）排序后再运行代码！", vbExclamation
        Exit Sub
    End If
    
    i = 2 ' 假设数据从第2行开始，第1行为表头
    Do While i <= lastRow
        currentID = ws.Cells(i, "A").Value
        ' 找到当前ID对应的最后一行
        j = i
        Do While j <= lastRow And ws.Cells(j, "A").Value = currentID
            j = j + 1
        Loop
        j = j - 1
        
        ' 定位当前ID对应的B列数据范围
        Set dataRange = ws.Range("B" & i & ":B" & j)
        ' 调用Excel内置函数计算中位数
        medianVal = Application.WorksheetFunction.Median(dataRange)
        
        ' 将结果写入D、E列
        ws.Cells(outputRow, "D").Value = currentID
        ws.Cells(outputRow, "E").Value = medianVal
        
        ' 更新循环指针，处理下一个ID分组
        i = j + 1
        outputRow = outputRow + 1
    Loop
    
    MsgBox "中位数计算完成！", vbInformation
End Sub

' 辅助函数：检查指定区域是否按升序排序
Function IsSorted(rng As Range) As Boolean
    Dim cell As Range
    For Each cell In rng
        If cell.Row > rng.Row Then
            ' 只要出现后一行小于前一行，说明未排序
            If cell.Value < cell.Offset(-1, 0).Value Then
                IsSorted = False
                Exit Function
            End If
        End If
    Next cell
    IsSorted = True
End Function

代码细节说明 #

• 自动适配数据范围：无需手动指定数据行数，代码会自动获取A列最后一行的位置
• 排序校验机制：添加了IsSorted辅助函数，运行前自动检查排序状态，避免新手踩坑
• 高效分组逻辑：通过嵌套循环快速定位同一ID的所有数据行，避免重复遍历
• 稳定的中位数计算：直接调用Excel原生的Median函数，保证计算结果的准确性

内容的提问来源于stack exchange，提问作者clement l