Страницы: 1
RSS
Найти минимальное значение для аргументов перечисленных в одной ячейке
 
Здравствуйте. Прошу помочь в решении задачи:

Дано:
Есть перечень аргументов (столбец В), у каждого аргумента свое значение (столбец С). В столбце Е представлен перечень аргументов, причем в одной ячейке их может быть несколько.
Задача:
в столбце F формулой определить минимальное значение для аргументов перечисленных в соседней ячейке столбца Е. Вариант - разнести аргументы одной ячейки по нескольким ячейкам и потом работать с полученными ячейками - не подходит.

Заранее благодарю.
 
Цитата
Gaust написал:
Задача:в столбце F формулой определит
вот это квест...
Не бойтесь совершенства. Вам его не достичь.
 
если понял массивно в F3 и вниз
Код
=МИН(ЕСЛИОШИБКА(ПОИСК($B$3:$B$32;E3)*C3:C32;"Ё"))
Лень двигатель прогресса, доказано!!!
 
Gaust,
вариант макросом (пусть будет)
Код
Sub sdsd()
Dim arr1, arr2, arr3, arr4
arr1 = Range("B3:C32")
arr2 = Range("E3:E23")
ReDim arr4(0)
x = 77 ^ 77
For i = LBound(arr2) To UBound(arr2)
    arr3 = Split(arr2(i, 1), ", ", -1)
    For n = LBound(arr3) To UBound(arr3)
        For k = LBound(arr1) To UBound(arr1)
            If arr1(k, 1) = arr3(n) And x >= arr1(k, 2) Then x = arr1(k, 2)
        Next k
    Next n
    arr4(UBound(arr4)) = x
    Cells(i + 2, 6) = x
    x = 77 ^ 77
    ReDim Preserve arr4(UBound(arr4) + 1)
Next i
Range("F3").Resize(UBound(arr4) - 1) = Application.Transpose(arr4)
End Sub
Сергей,  мне кажется что-то не так.
Не бойтесь совершенства. Вам его не достичь.
 
Цитата
Mershik написал:
мне кажется что-то не так
Я тут немного поэспериментировал с формулой Сергея, и в общем, если попробовать явно указать позиции значений в строке то формула срабатывает правильно, правда последнее значение побороть, увы, не смог.
Код
=MIN(IFERROR(SEARCH($B$3:$B$32,TRIM(MID(E3,{1,5,9,12,17},4)))*$C$3:$C$32,""))
Изменено: memo - 21.09.2020 22:01:00
 
=MIN(IF(ISNUMBER(FIND($B$3:$B$32&",";E3&","));$C$3:$C$32)) Но это для случая когда такие четкие условия, а ттак может потребоватся =MIN(IF(ISNUMBER(FIND(", "&$B$3:$B$32&",";", "&E3&","));$C$3:$C$32))
Изменено: БМВ - 21.09.2020 23:31:20
По вопросам из тем форума, личку не читаю.
 
БМВ, memo, Mershik, Сергей,

Всем большое спасибо за оперативность и точность, помогли!
На выходных подниму кубок за ваше здоровье!
Изменено: Gaust - 22.09.2020 07:47:30
 
Gaust, мой вариант косячный так что не благодарите видно понедельник конец рабочего дня мысли о доме
Лень двигатель прогресса, доказано!!!
Страницы: 1
Наверх