计算某些值包含“<”的数据的中位数

Question

我需要计算一组测量值的中位数，其中在某些情况下测量了一个值，在某些情况下该值低于检测值（用“

以下是我遇到的一些案例示例：

2.0; 3.0； 中位数 = 2.5
1.0； 中位数 = 1.0； 1.0； 中位数 =

我对在 excel VBA 中执行此操作有点难过。
如何在跟踪“

非常感谢任何输入 - 谢谢！

Answer 1

这是我使用的东西：

Public Function DoAvg(rng As Range)
  DoAvg = Parse(rng, "Average")
End Function

Public Function DoMedian(rng As Range)
  DoMedian = Parse(rng, "Median")
End Function


'This does the work...
Private Function Parse(rng As Range, CalcType As String)

Dim rv, arr() As Single, mods As String, i As Long
Dim c As Range
Dim tmp, m

  For Each c In rng.Cells
    tmp = Replace(Trim(c.Value), " ", "")
    If tmp Like "<*" Or tmp Like ">*" Then
        m = Left(tmp, 1)
        If Not InStr(mods, m) > 0 Then mods = mods & m
        tmp = Right(tmp, Len(tmp) - 1)
    End If

    If IsNumeric(tmp) And tmp <> "" Then
      i = i + 1
      ReDim Preserve arr(1 To i)
      arr(i) = tmp
    End If
  Next c

  If i > 1 Then
      rv = CallByName(Application.WorksheetFunction, CalcType, VbGet, arr)
      Parse = IIf(mods <> "", mods, "") & rv
  Else
      Parse = ""
  End if

End Function