VBA:从列表中返回第二个最小的数字

时间:2017-05-05 14:46:23

标签: excel vba excel-vba

使用: Excel 2010,VBA

目标:从列表中返回第二个最小数字(无论是整数还是带小数的实数)

示例数据集(我希望它返回10.123):

  

11

     

9

     

26.0

     

37.123

     

45

     

10.123

问题:我遇到了几个解释如何执行此操作的线程,但似乎所有内容都只与整数有关。我需要这个来处理整数和实数的值列表(例如,1和1.2345)。

我尝试了什么(但我认为这仅适用于整数):

For dblX = LBound(arrFwdTimes) To UBound(arrFwdTimes) - 1
    For dblY = dblX + 1 To UBound(arrFwdTimes)
        If arrFwdTimes(dblX) > arrFwdTimes(dblY) Then
            strT = arrFwdTimes(dblY)
            arrFwdTimes(dblY) = arrFwdTimes(dblX)
            arrFwdTimes(dblX) = strT
            End If
        Next dblY
    Next dblX

1 个答案:

答案 0 :(得分:3)

您可以使用以下内容来实现您的目标。这与使用${env_var:COMPUTERNAME} 公式函数

相同
SMALL