ВПР макросом

[amadeus017]

Доброго времени суток, уважаемые форумчане!
Буду краток. На лист "Результат", в гр.6 "F", нужен макрос ВПР с листа "Данные" (количество строк на листе "Данные" и "Результат", всегда по разному).
На форуме нашел макрос от "Казанский", код ниже, попробовал его внедрить в свою таблицу, запутался в значениях. Прошу помочь, файл прилагаю.

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

[IgorGO]

На форуме нашел макрос от "Казанский", код ниже, попробовал его внедрить в свою таблицу, запутался в значениях.

это нормально. я сам 2 раза запутывался в макросах от "Казанский", но оба раза все обошлось

[AleksandrH]

Sub Не_крутой_Макрос()
    Dim F As Long, B As Long, i As Long
    F = Sheets("Результат").Cells(Sheets("Результат").Rows.Count, 6).End(xlUp).Row
    B = Sheets("Результат").Cells(Sheets("Результат").Rows.Count, 2).End(xlUp).Row
    For i = F + 1 To B
        Cells(i, 6).FormulaR1C1 = "=vlookup(rc2,Данные!r1c1:r" & Sheets("Данные").Cells(Sheets("Данные").Rows.Count, 1).End(xlUp).Row & "c9,9,0)"
    Next
End Sub

[amadeus017]

AleksandrH
Спасибо! Все работает! Только я сам виноват, не правильно сформулировал что я хотел. Действительно, макрос работает, за что благодарен, и прописывает в каждую ячейку, формулу ВПР, а хотелось бы только значение, т.е. полученный результат. Видать по этому компьютер долго зависал, что прописывал формулу, а не результат, а так, все отлично!

[Hugo121]

А зачем макросом именно ВПР()? Быстрее ведь сразу брать значения, особенно быстро будет по Виндой на словаре, ну и в любом случае на массивах нужно делать.
А сейчас Вы перебираете каждую ячейку шестого столбца Sheets("Результат"), и каждое значение индивидуально ищите по всему столбцу Sheets("Данные"), причём ещё на каждое такое действие высчитываете "а сколько там всего заполнено, вдруг что-то изменилось...". Это я про вариант AleksandrH http://programmersforum.ru/showpost....14&postcount=3
Т.к. архивы мне недоступны - нового примера кода не будет. Но тут уже их таких сотня была...