VBA正侧表达式怎么返回值最下面的 Count个数2

在VBA中,可以使用以下方法返回正侧表达式的Count个数中最小的2个值:

1. 使用Application.Min函数找出表达式结果的最小值。语法为:

Min(expr1, expr2, ...)

例如:

Min(3, 5, 2, 8) 返回2

2. 使用Application.Small函数找出表达式结果的第K小的值。语法为:

Small(array, k)

例如:

Dim nums = {3, 5, 2, 8}

Small(nums, 2) 返回3,因为3是第2小的值

3. 组合使用Min和Small函数。首先用Min找到最小值,然后用Small找到第二小的值。例如:

Min(expr1, expr2, ...)   '找最小值,命名为minVal

Small(array, 2)        '找第2小的值,命名为secMinVal

4. 使用Array函数将表达式结果存入数组,然后用UBound函数获取数组上限,并循环数组找最小的2个值。例如:

Dim values() As Integer

values = Array(expr1, expr2, ...)  '表达式结果存入数组

Dim uBoundVal = UBound(values)   '数组上限

Dim minVal, secMinVal As Integer

minVal = values(1)     '初始化最小值为第一个元素

secMinVal = minVal

For i = 2 To uBoundVal   '从第二个元素循环到上限

    If values(i) < minVal Then    '找到更小值

        secMinVal = minVal    '将先前的最小值存为第二小值

        minVal = values(i)    '更新最小值

    ElseIf values(i) < secMinVal Then

        secMinVal = values(i)  '更新第二小值

    End If

Next i

以上就是在VBA中返回正侧表达式Count个数中最小的2个值的详尽说明。请 let 我知道如果您有任何其他疑问。