замена значений ячеек значениями из коллекции

[Bape}l{ka]

доброе утро, знатоки!))

есть коллекция имен с присвоенными им кодами на отдельном листе.
задача: заменить эти значения/имена в базе (на другом листе) на соответствующие коды

вобщем-то, если в лоб, то можно сделать перебором значений коллекции до совпадения со значением из базы и подстановкой кода, который в соседней ячейке.. но это долго, и я хотела у вас спросить, как это можно реализовать через массивы? используя двумерный массив загнать туда значение-код??
не совсем понимаю, как работают двумерные и n-мерные массивы Т_Т помогите разобраться... или может какую литературу с примерами нормальными про массивы посоветуете?

пример файла: 2мерный_Массив.rar

[EducatedFool]

Простейший макрос вам поможет:

Sub test()
    Dim sh As Worksheet: Set sh = Worksheets("Key Q40")
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = sh.Range(sh.[b2], sh.Range("b" & sh.Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        ActiveSheet.UsedRange.Replace cell, cell.Next, xlWhole
    Next cell
End Sub

И незачем мудрить с массивами...

PS: Что значит долго? Полсекунды?

[Казанский]

Да, только наоборот, слова на коды надо заменить?

Sub test()
    Dim sh As Worksheet: Set sh = Worksheets("Key Q40")
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = sh.Range(sh.[C2], sh.Range("C" & sh.Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        ActiveSheet.UsedRange.Replace cell, cell.Previous, xlWhole
    Next cell
End Sub

[Bape}l{ka]

да, слова на коды)) спасибо большое))

но это тут пример маленький, а если там тыщи строк и десятки столбцов??
я просто слышала, что массивы гораздо быстрее циклов For.. или это не относится к For each??

блииин.. красиво! мне до такого еще далеко Т_Т
ну что ж... будем учиться =ь