Поиск в справочнике макросом

[sasha_prof]

Доброго всем времени суток.

Есть база и есть справочник.

Нужно в лист база вытянуть из листа справочник "вид". Есть единый критерий "номер" в обеих листах.

Как прописать макрос, чтоб искал быстро, так как в базе номеров может быть очень много?

Я прописывал оператором "For To" но при многом количесве данных ищет долго.

[kuklp]

Используйте find, например

[sasha_prof]

Сообщение от kuklp

Используйте find, например

Ссори но не знаю как спользовать его на определенный диапазон.

Напиши пожл.

[EducatedFool]

Тут не нужны макросы.
Вам поможет простейшая формула:

  Ячейка: B3      Формула  (стиль A1):   =ВПР(A3;spravochnyk!A:B;2;0)
                  Формула  (стиль R1C1): =ВПР(RC[-1];spravochnyk!C[-1]:C;2;0)

Пример: http://excelvba.ru/XL_Files/Sample__...__19-42-31.zip

Если уж так хочется макрос - можно одной строкой кода вставить формулу в целый диапазон ячеек

[sasha_prof]

Сообщение от EducatedFool

Тут не нужны макросы.
Вам поможет простейшая формула:

  Ячейка: B3      Формула  (стиль A1):   =ВПР(A3;spravochnyk!A:B;2;0)
                  Формула  (стиль R1C1): =ВПР(RC[-1];spravochnyk!C[-1]:C;2;0)

Пример: http://excelvba.ru/XL_Files/Sample__...__19-42-31.zip

Если уж так хочется макрос - можно одной строкой кода вставить формулу в целый диапазон ячеек

Та нет, ВПР( я знаю, но у меня на столько тяжелая книга что она просто виснет на этой функции.

Так что нужен макрос

[EducatedFool]

Так что нужен макрос

Вам виднее - спорить не буду. Куда уж мне до ваших познаний Excel...

Проверяйте макрос: http://excelvba.ru/XL_Files/Sample__...__20-28-41.zip

Сообщение от kuklp

Да и ВПР на больших объемах тормознет

Да не такие уж и тормоза, если строк не миллион
Кроме того, если строк действительно ОЧЕНЬ много, можно ВПР вставлять не сразу во весь диапазон, а частями - в диапазоны по 1000 строк из одну итерацию цикла

[kuklp]

Попробуйте. Игорь, Вы не в том формате файл вложили. Да и ВПР на больших объемах тормознет.

[kuklp]

Я конечно же имел ввиду не версию Офиса, а то, что xlsx макросы не поддерживает:-) Кстати результаты у нас разные из-за того, что автор тупо скопировал справочник в рабочий лист(или наоборот). Я так понимаю, что ключевые значения в справочнике повторяться не должны, иначе совпадения нужно искать уже по двум ячейкам.
П.С. Игорь, вот эта строка:
Dim ra As Range: Set ra = Range([A3], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp))).Offset(, 1)
просто песня. Ни за что бы не додумался сделать так.

[alekzzandr]

ctrl + F, если я правильно понял задачу

[sasha_prof]

Сообщение от alekzzandr

ctrl + F, если я правильно понял задачу

да только макросом