Если имя X, введите номер телефона Y из таблицы Z в Excel.

Question

Я пытаюсь создать простой макрос или VBA, который вставит номер телефона в столбец Y для значения чьего-либо имени в столбце X из рабочего листа каталога.

Так, например, на листе 1 (справочник) есть имена физических лиц и номера телефонов:

John Smith 123 456 789
Joe Garden 555 555 555
Jill Spill 999 999 999

При создании нового листа 2, когда я помещаю Джона Смита в столбец A, я хочу, чтобы он автоматически заполнял 123 456 789 в столбце B.

Спасибо за помощь!

Answer 1

Попробуйте этот код и дайте мне знать, если я что-то пропустил.Обязательно замените Sheet4 на имя листа с номером телефона.

Sub Macro12()
   Range("B1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet4!C[-1]:C,2,FALSE)"
    ActiveCell.Offset(0, 1).Range("A1").Select
End Sub