формула ВПР через макрос

[27102014]

В рамках решения большой задачи появилась необходимость написания формулы ВПР макросом.
Исходные данные: Два листа - Расчет и Справочник, из Справочника нужно подтянуть данные. В Справочнике содержится несколько таблиц из трех столбцов, соответственно, нужно таблицу сначала найти.

Гугл ничего интересного не выдал, пришлось придумать самому - может пригодится кому

 Sub Крутой_Макрос()
        
    'поиск нужной таблицы на листе Справочник
    Sheets("Справочник").Select
    Cells.Find("*" & Искомое_значение).Select
    Начало = БукваСтолбца(ActiveCell.Column)
    Конец = БукваСтолбца(ActiveCell.Column + 2)
    
    'вставка формулы ВПР
    ActiveWorkbook.Sheets("Расчет").Select
    Range("D" & 3).Select
    Что = Cells(3, 1).Address(False, False)
    
    ActiveCell.Formula = "=VLOOKUP(" & Что & ",Справочник!" & Начало & ":" & Конец & ",3,0)"
    
 End Sub


Function БукваСтолбца(ByVal col As Long) As String
On Error Resume Next
БукваСтолбца = Application.ConvertFormula("r1c" & col, xlR1C1, xlA1)
БукваСтолбца = Replace(Replace(Mid(БукваСтолбца, 2), "$", ""), "1", "")
End Function

[Казанский]

Так можно

Sub Крутой_Макрос()
Dim c As Range, Искомое_значение
    Искомое_значение = "Искомое_значение"
    'поиск нужной таблицы на листе Справочник
    Set c = Sheets("Справочник").Cells.Find("*" & Искомое_значение, , xlValues, xlWhole)
    If Not c Is Nothing Then
      'вставка формулы ВПР
      Sheets("Расчет").Range("D3").FormulaR1C1 = "=VLOOKUP(RC[-3]," & c.EntireColumn.Resize(, 3).Address(, , xlR1C1, True) & ",3,0)"
    End If
End Sub

[27102014]

Казанский, добрый день!
До Вашего уровня мне еще очень и очень далеко! )
Сделал как смог - путаюсь в стиле ячеек RC, стараюсь делать без него.
У Вас интересный способ вывода буквенного обозначения столбцов, который я решил решил через пользовательскую функцию, обязательно попробую