on-line-teaching.com

[Anna]

Есть ряд значений от A2 до В2, нужно вывести из этого ряда минимальное значение, но в ответе должно быть указано не число, а название фирмы у которой минимальная цена.

A В
1 Нева Нева+
2 5р 4р
В данном примере это Нева+.

[BelkaJul]

Вам подойдёт такой принцип :

Выделите диапазон, в котором стоимости товара,
найдите наименьшую стоимость

Dim a As Range
Dim aa As Range
Dim x1 As Double
Dim row_min As Integer
Dim address_min As String
x1 = 10000000
Set a = Range("a2:h2") ' строка с ценами
For Each aa In a
If aa.Value < x1 Then
x1 = aa.Value
row_min = aa.Row
address_min = aa.Address(False, False)
End If
Next aa

address_min = Replace(address_min, Trim(Str(row_min)), Trim(Str(row_min - 1)))
MsgBox "минимальная цена = " & x1 & vbCrLf & _
"фирма " & Range(address_min).Value

Удачи

[Lilu]

попробуйте так:
только нужно немного переформировать вашу таблицу
1. вариант

5.00р. 4.00р.
нева нева+

сверху должны быть значения, тогда формула
=ГПР(МИН(A1:B1);A1:B2;2;ЛОЖЬ)

или

2. вариант

5.00р. нева
4.00р. нева+

=ВПР(МИН(A1:A2);A1:B2;2;ЛОЖЬ)