Как заставить Excel учитывать ТОЛЬКО строки, которые имеют заданное значение

Попробуйте... кажется, это работает на моем тестовом листе. Обязательно отрегулируйте диапазоны в соответствии с вашей ситуацией. Опять же, это формула массива, и ее необходимо подтвердить с помощью Ctrl+Shift+Enter:

=INDEX(C2:C7,MATCH(MIN(ABS((B2:B7=F4)*A2:A7-F5)),ABS((B2:B7=F4)*A2:A7-F5),0),0)

Он работает путем обнуления клавиш, которые не соответствуют назначению вашей группы (это часть (B2:B7=F4)*A2:A7-F5). Таким образом, только ключи с допустимыми группами имеют некоторый номер, который будет использоваться для сопоставления со столбцом данных.

Надеюсь, это поможет объяснить это. Вы также можете использовать функцию «Оценить формулу» на панели инструментов «Формулы», чтобы увидеть ее в действии.

Примечание. Кажется, что возвращается 1-е значение данных, если 0 используется в качестве ближайшего значения (независимо от выбора группы). Не знаю, как обойти это...

Вот ответ sous2817, скорректированный, чтобы избежать проблемы с получением неправильного результата при вводе 0:

=INDEX(Data,MATCH(MIN(IFERROR(ABS(IF(GroupNo=Group,1," ")*Key-DecimalValue),
" ")),IFERROR(ABS(IF(GroupNo=Group,1," ")*Key-DecimalValue)," "),0))

Объяснение того, как это работает, такое же. Проблема решается заменой нулей ошибками.

Обратите внимание, что Key — ключевой столбец, GroupNo — столбец номера группы, Data — столбец данных, Group — группа, назначенная для поиска, а DecimalNumber — номер, введенный для поиска.

РЕДАКТИРОВАТЬ: Как обсуждалось в комментариях ниже, эту формулу можно сделать гораздо более читабельной, используя именованный диапазон (именованная формула AKA). Установите именованный диапазон searchRange равным:

IFERROR(ABS(IF(GroupNo=Group,1," ")*Key-DecimalValue)," ")

Тогда формула становится:

=INDEX(Data,MATCH(MIN(searchRange),searchRange,0))

Это дает дополнительное преимущество в виде меньших накладных расходов Excel, поскольку именованная формула вычисляется только один раз (тогда как в другой версии она вычисляется каждый раз, когда появляется).

Вы должны быть в состоянии сделать следующее

Function getLastRow()
    Dim i As Integer
    Dim l_row As Integer
    For i = 1 To 35
        If Sheet1.Cells(Rows.Count, i).End(xlUp).Row > l_row Then
            l_row = Sheet1.Cells(Rows.Count, i).End(xlUp).Row
        End If
    Next i
    getLastRow = l_row
End Function
Sub data_lookup
    Dim last_row As Integer
    Dim lcell as Range
    Dim col_a_lookup As Double
    Dim col_b_lookup AS Double
    Dim row_collection As New Collection
    Dim variance AS Double
    Dim closest_row AS Integer

    col_b_lookup = 0.04
    col_a_lookup = 8
    variance = 50

    last_row = getLastRow
    'Find All the Cells that match your lookup value for column B
    For Each lcell in Sheet1.Range("$B$2", "$B$" & last_row)
       If lcell.value = col_b_lookup Then
          row_collection.Add lcell
       End If
    Next lcell
    'Loop through the collection created above to find the closest absolute value to
    'your lookup value for Column A 
    For Each lcell in row_collection
        If Abs(Sheet1.Cells(lcell.row,"A") - col_a_lookup) < variance then
            variance = Abs(Sheet1.Cells(lcell.row,"A") - col_a_lookup)
            closest_row = lcell.row
        End If
    Next lcell
    'Return Results 
    If closest_row > 0 Then
        Msgbox "Closest Data: " & Sheet1.Cells(closest_row,"G")
    Else
        Msgbox "Cannot Locate"
    End If
End Sub

Очевидно, вам придется установить col_a_lookup и col_b_lookup в указанные значения, и я уверен, что вы хотите изменить Msgbox. Но это должно помочь вам на вашем пути.