Найти значение, поместить его в массив и найти наименьшее значение в массиве 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