求值，放入数组中，求数组中的最小值VBA

Question

我想在一个范围内找到一个给定的值，如果我找到了这个值，我想把它放在一个数组中。在循环之后，我想将数组中的最小值赋给一个变量。

怎么可能？

    For k = 2 To LastRow_Roles
        If roles_sheet.Cells(k, 2).Value = "Admin" Then
            selected_number = roles_sheet.Cells(k, 1).Value
            ReDim aArray(0 To UBound(aArray) + 1) As Variant
            aArray(UBound(aArray)) = selected_number        
         end if
    next k

minimum_value = Application.min(aArray)
low_sheet.Cells(1, 1) = minimum_value
Erase aArray
ReDim aArray(0 To 1) As Variant

Answer 1

您将需要使用 ReDim Preserve 以便保留已附加到数组的现有数据。

然后您可以使用 Application.WorksheetFunction.Min 函数提取在数组中找到的 Min 数字。

For k = 2 To LastRow_Roles
    If roles_sheet.Cells(k, 2).Value = "Admin" Then
        ReDim Preserve aArray(0 To UBound(aArray) + 1)
        aArray(UBound(aArray)) = roles_sheet.Cells(k, 1).Value
    End If
Next k

minimum_value = Application.WorksheetFunction.Min(aArray)
low_sheet.Cells(1, 1) = minimum_value
Erase aArray
ReDim aArray(0 To 1) As Variant

求值，放入数组中，求数组中的最小值VBA

Find value, put it in an array and find the smallest value in the array VBA

arrays

excel

vba

dynamic-arrays