Работа с большим кол-вом строк, словари, массивы, коллекции

[KaSS]

Здравствуйте. Если вам не трудно, не могли бы вы мне помочь. Мне нужно из одного документа, содержащего для каждого типа документа приоритет расставить приоритеты для имеющегося у меня списка документов. Список документов большой - 27 тыс строк, может быть и больше.
Я выкладываю простой пример и как это осуществляется сейчас, хотелось бы узнать как можно сделать тоже, но быстрее (у меня это занимает минуту для оригинального файла) каким-либо другим способом через словари или коллекции, может ещё как то

Книга1.rar

[IgorGO]

Sub SetPriority()
  Dim d, r As Long, a(), t As Single
  Set d = CreateObject("scripting.dictionary"):  t = Timer
  With Worksheets("Приоритет")
    r = 1
    Do While .Cells(r, 1) <> ""
      d(.Cells(r, 1) & .Cells(r, 2)) = .Cells(r, 3):  r = r + 1
    Loop
  End With
  With Worksheets("Документы")
    r = 2: ReDim a(1 To .[a1].CurrentRegion.Rows.Count, 1 To 1): a(1, 1) = "Приоритет"
    Do While .Cells(r, 1) <> ""
      a(r, 1) = d(.Cells(r, 2) & .Cells(r, 3)):  r = r + 1
    Loop
    .Cells(1, 4).Resize(.[a1].CurrentRegion.Rows.Count, 1) = a
  End With
  MsgBox Timer - t & " сек."
End Sub

[Hugo121]

А как же "словари, массивы"?

Sub SetPriorityH()
    Dim t As Single: t = Timer
    Dim i&, a()

    With CreateObject("scripting.dictionary")

        a = Worksheets("Приоритет").[a1].CurrentRegion.Value
        For i = 2 To UBound(a): .Item(a(i, 1) & "|" & a(i, 2)) = a(i, 3): Next

        a = Worksheets("Документы").[a1].CurrentRegion.Value
        For i = 2 To UBound(a): a(i, 1) = .Item(a(i, 2) & "|" & a(i, 3)): Next
        a(1, 1) = "Приоритет"

        Worksheets("Документы").Cells(1, 4).Resize(UBound(a), 1) = a
    End With

    MsgBox Timer - t & " сек."
End Sub

Хотя их там правда есть как и у меня - один

[EducatedFool]

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

А как же "словари, массивы"?

Игорь, так ты же всех и научил, что макросы надо писать на массивах и словарях )
Сколько твоих сообщений не читаю, - ты везде об этом пишешь. А теперь удивляешься, что люди перенимают твой опыт))

PS: Ко мне уже люди обращаются с заказами, изначально заявляя, что макрос должен быть обязательно с использованием массивов и словарей
(я таких сразу к тебе отправляю, - говорю, что такие макросы ты лучше всех пишешь)))

PPS: Я словари (dictionary) вообще в макросах не использую.
За последние 2 года, использовал их ровно 2 раза. Хотя макросов за это время написал .... чуть больше чем дофига)

[Hugo121]

Что-то ко мне мало приходят...
Ну коллекции побыстрее работают - но как-то функционала мало, да и ошибки обрабатывать душа не лежит
А что используешь вместо словаря - неужели цикл в цикле по массиву? Неудобно ведь...

[cherepushka]

Игорь, скажите пожалуйста чем отличается массив от словаря? Словарь и ассоциативный массив это не одно и тоже?

[Hugo121]

Что такое ассоциативный массив? Я правда не знаю
Нужно погуглить...
Погуглил - это и есть что-то вроде словаря.
А простой массив - это массив без никаких ассоциаций

[cherepushka]

В PHP ассоциативные массивы использовал, поэтому сразу не написал, извиняйте, вот теперь Excel нужен. Получается словари и коллекции это одно и тоже, разница лишь в количестве методов и свойств.

[Hugo121]

Коллекции чуть другое.
Но суть похожа - уникальный ключ, к нему в паре что-то.
В словаре парой может быть почти что угодно (число, строка, массив, словарь, коллекция, объект). Как в коллекции - не знаю, не применял, гуглите.

[cherepushka]

Спасибо за ответ.
Если у меня одна строка в четыре столбца - к примеру
1столбец-футболка 2столбец-55 3столбец-45 4столбец-77 и нужно разбить на три строчки в два столбца
футболка 55
футболка 45
футболка 77
Здесь словари или массивами можно обойтись?