VBA вместо vlookup - PullRequest
Новая
       15

VBA вместо vlookup

1 голос
/ 07 ноября 2019

Я только начал использовать VBA. У меня есть рабочая тетрадь с двумя листами. На первом листе в колонке «D» указаны номера деталей. На втором листе, опять же, у меня есть номера деталей в столбце «A», а описание каждой детали номера в столбце «B». На Sheet1 я хочу собрать следующие данные:

  • Если в столбце Sheet2 "A" содержится номер детали из столбца Sheet1 "D", то значение столбца "O" должно быть столбцом Sheet2 "B ".

Теперь самостоятельно использую Vlookup через макрос записи: 

Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-11],'RIG MB'!C[-14]:C[-13],2,0)"
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O3430")
    Range("O2:O3430").Select

Мне нужен код VBA, но не функция листа Vlookup, мне нужно что-то быстрее. Также я хочу зациклить его, пока в столбце Sheet1 "D" не будет данных. Заранее спасибо!

1 Ответ

0 голосов
/ 07 ноября 2019

Вот пример, который не зацикливается, но должен быть быстрее, чем VLOOKUP: 

Range("O2:O3430").Formula = "=INDEX('RIG MB'!B:B, MATCH(D2, 'RIG MB'!A:A, 0))
...