Быстро и грязно, чтобы сделать это один раз, вы можете сделать это с помощью функции рабочего листа VLOOKUP.Введите = VLOOKUP (B2, $ F $ 2: $ I $ 6,2, FALSE) в D2 и = VLOOKUP (B2, $ F $ 2: $ I $ 6,3, FALSE) в E2 в вашем примере, а затем скопируйте / вставьте две ячейки вниз, чтобы понять, что я имею в виду.
Запись эквивалентного VBA займет еще несколько минут.Если решение можно использовать повторно, дайте мне знать, и я потрачу необходимые несколько минут, но имейте в виду, что VBA будет немного отличаться в зависимости от реальных источников каждой из таблиц данных (в их собственных таблицах? В их собственных книгах?)