多个数据中找中位数vba代码

Sub s()

Const n = 100

Dim a#(n)

For i = 1 To n

a(i) = InputBox("请输入第" & i & "个数")

Next

For i = 1 伍亩搭To n

For j = 1 To n - 耐亮i

If a(j) >腔拿 a(j + 1) Then

tmp = a(j)

a(j) = a(j + 1)

a(j + 1) = tmp

End If

Next

Next

If n Mod 2 Then

MsgBox ("中位数为" & a(n \ 2))

Else

MsgBox ("中位数为" & (a(n / 2) + a(n / 2 + 1)) / 2)

End If

End Sub

亲，内置函数是最快的巧蠢伍，估计你没找对档宏函数吧，有个专孝或门的计算中位数的函数Median，你阔以试试

我不知道03版以前有没有，我的10版是内置自带的，这是基本的统计函数，我想所有版本应该都有

Option Explicit

Function medi(ByVal rng As Variant)

medi = Application.Median(rng)

End Function

---