求助：如何用Excel或VBA计算行内未排序数值中位数及行内排序？

直接使用Excel公式 #

Excel内置的MEDIAN函数无需提前排序，直接指定目标行的范围即可计算中位数：

• 计算某一行指定列的中位数：=MEDIAN(A3:D3)（示例为第3行A到D列）
• 计算整行的中位数：=MEDIAN(5:5)（示例为第5行）

VBA自定义函数实现 #

如果需要通过VBA封装逻辑，可编写如下自定义函数：

Function RowMedian(rng As Range) As Double
    Dim values As Variant
    values = rng.Value
    RowMedian = WorksheetFunction.Median(values)
End Function

使用时在单元格输入=RowMedian(A2:E2)，即可返回对应行范围的中位数。

方法1：利用Range.Sort原生方法 #

Excel的Sort方法支持按行排序，只需设置Orientation参数为xlSortRows，示例代码：

Sub SortSingleRow()
    Dim targetRange As Range
    ' 指定要排序的行范围，示例为Sheet1的第2行A到F列
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A2:F2")
    
    ' 执行升序排序，若需降序改为xlDescending
    targetRange.Sort _
        Key1:=targetRange.Cells(1), _
        Order1:=xlAscending, _
        Orientation:=xlSortRows, _
        Header:=xlNo ' 若行内包含表头，改为xlYes
End Sub

方法2：数组排序（适合复杂场景） #

通过数组操作实现排序，灵活性更高，示例为冒泡排序：

Sub SortRowViaArray()
    Dim targetRange As Range
    Dim rowArr As Variant
    Dim i As Integer, j As Integer
    Dim tempVal As Variant
    
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A2:F2")
    rowArr = targetRange.Value ' 将行数据存入数组
    
    ' 冒泡排序（升序）
    For i = LBound(rowArr, 2) To UBound(rowArr, 2) - 1
        For j = i + 1 To UBound(rowArr, 2)
            If rowArr(1, i) > rowArr(1, j) Then
                tempVal = rowArr(1, i)
                rowArr(1, i) = rowArr(1, j)
                rowArr(1, j) = tempVal
            End If
        Next j
    Next i
    
    ' 将排序后的数组写回原单元格
    targetRange.Value = rowArr
End Sub

内容的提问来源于stack exchange，提问作者Michal Balek