Перекодировка наименований

[Gigabait]

Имеется 2 таблицы (пусть в одной книге на разных листах). На одном листе имеется код изделия, наименование изделия, на втором тож код и наименование изделия, но код другой - новый. Надо сопсотавить названия (наименования изделий) и помимо старого кода вытянуть новый и поставить в соседнюю ячейку. Пример во вложении. Помогите, плиз... У меня в этом очень поверхностные понятия... Так вот на Лист2 надо проставить новые коды исходя из наименования изделия. Офис7, но сохраняю как 2003.

[nilem]

=ВПР(B2;Лист1!$B$2:$C$17;2;0)

[vikttur]

Почитайте о функции ВПР(), самое оно.
=ВПР(наменование;таблица_где_первый _столбец_наименование;
столбец_второй;точное_совпадение_на именования)

[Gigabait]

Спасибо! А можно ли реализовать это через VBA? Ибо в некоторых строках может быть либо пустота, либо просто наименование без кода. Не хочется наблюдать нули.. Еще может быть, что не все наименования будут и на том листе и на том, что приведет к нулевым значениям. Или просто эту формулу реализовать через ЕСЛИ? Хотелось бы все же VBA ибо количество строк заранее не известно ни на одном листе ни на другом...

[nilem]

Просто возьмите диапазон побольше. И ЕСЛИОШИБКА (для Е2007), чтобы Н/Д не наблюдалось
=ЕСЛИОШИБКА(ВПР(B2;Лист1!$B$2:$C$10 00;2;0);"")

[Gigabait]

В проекте получается около 500 страниц. Вопрос: Как протянуть формулу сразу на все???
И еще. если надо не абсолютно точное совпадение, а к примеру отбросив с конца "мусор"?

[nilem]

Двойной клик по правому нижнему углу ячейки (когда курсор в виде крестика) с формулой, и она протянется настолько, сколько заполнено ячеек в соседнем столбце.
Или копируем ячейку с формулой - выделяем нужный диапазон для вставки - вставить. Формула заполнит весь диапазон, относительные ссылки сами изменятся.

[Gigabait]

это я знаюю. но 500 страниц протянуть - можно умереть!!!

[Hugo121]

Про 500 страниц поясните - это 500, куда нужно подтянуть данные, и они в одном файле. А страница с новыми кодами одна, и она тоже в этом файле, и назовём её например "NewCodes" - так можно сделать?
Тогда несложно макросом всё сделать автоматически, и сверить по частичному совпадению тоже. Но какой там может быть мусор, покажите, иначе трудно угадать, как частично сравнивать. А то может быть и 2ПП23-7=2ПП23-77.

Для Вашего примера, с точным соответствием так:

Option Explicit

Sub tt()
Dim a, aa, sh As Worksheet, i&, ii&
a = Sheets("NewCodes").[b1].CurrentRegion.Value
For Each sh In Worksheets
    If sh.Name <> "NewCodes" Then
        aa = sh.[b1].CurrentRegion.Value
            For i = 1 To UBound(aa)
                For ii = 1 To UBound(a)
                    If a(ii, 1) = aa(i, 2) Then aa(i, 3) = a(ii, 2): Exit For
            Next ii, i
        sh.[b1].CurrentRegion.Value = aa
    End If
Next
End Sub

Хотя намного быстрее было бы поместить список новых кодов в словарь и потом сверяться с словарём - отпали бы тысячи циклов по первому массиву. Но тогда частичное совпадение не придумал как реализовать, а тут легко Like добавить.

[Gigabait]

страниц печатных на одном Экселевском листе...