VBA поможет.
Sub MultipleSearch()
Dim aNum(), aTabl(), aRes()
Dim i As Long, k As Long, n As Long
With Worksheets("Лист1") ' лист с таблицей для поиска'
i = .Cells(.Rows.Count, "A").End(xlUp).Row
aTabl = .Range("A1:G" & i).Value ' таблица в массив'
' в А - счет, в G - остаток'
End With
With Worksheets("Лист2") ' лист с таблицей (результат)'
i = .Cells(.Rows.Count, "D").End(xlUp).Row ' искомые счета в столбце D'
aNum = .Range("D1:D" & i).Value ' искомые счета в массив'
' здесь 3 - максимальное количество возможных значений для одного искомого'
ReDim aRes(1 To i + 3, 1 To 1) ' задаем размерность массива'
aRes(1, 1) = .Range("K1").Value ' заголовок столбца К'
End With
' допускаем, что строка 1 - "шапка", ее в обработку не берем'
For i = 2 To UBound(aNum) ' по искомым данным'
n = i ' строка для записи найденного'
For k = 2 To UBound(aTabl) ' по строкам таблицы'
If aTabl(k, 1) <> Empty Then ' если не пусто'
If aNum(i, 1) = aTabl(k, 1) Then
aRes(n, 1) = aTabl(k, 7): n = n + 1 ' запись найденного'
End If
End If
Next k
Next i
' выгрузка результата на лист в столбец К'
Worksheets("Лист2").Range("K1").Resize(UBound(aRes), 1).Value = aRes
End Sub
Alt+F11 - вход в редактор VBA. Слева дерево проекта. Добавить общий модуль (Insert-Module), вставить в него код.
На листе создать любой объект(можно через меню Вставка-Фигуры). ПКМ на объекте, Назначить_макрос, в появившемся списке выделить имя макроса, нажать ОК
' -----------------
Можно с помощью формулы. Но на большой таблице возможны тормоза, т.к. формула производит много вычислений. Формула для К2.
=ЕСЛИОШИБКА(НАИБОЛЬШИЙ(ЕСЛИ(Лист1!$A$2:$A$9=ПРОСМОТР(9E+307;Лист2!$D$1:D2);Лист1!$G$2:$G$9);СТРОКА(A3)-ПОИСКПОЗ(ПРОСМОТР(9E+307;Лист2!$D$1:D2);$D$1:D2;));)
Изменить последнюю строку в диапазонах Лист1!$A$2:$A$9, Лист1!$G$2:$G$9
Вводится как формула массива: находясь в строке формул, нажать одновременно Ctrl+Shift+Enter. Формула должна обрамиться фигурными скобками.
Протянуть формулу по строкам.
Если мешают нули: меню Файл-Параметры-Дополнительно-Показать_параметры_листа, выбрать лист, снять галку Показывать_нули_в_ячейках
Формула работает с искомыми данными в числовом формате. Если счета записаны текстом, то формулу нужно усложнять.