Сравнить 2 массива (чтобы ускорить макрос)

[ольгаг]

Здравствуйте Уважаемые программисты!

Есть следующая задача в vba-excel:

Происходит выборка блоков в Автокаде и затем запись в столбцы Excel 2х значений - имя Тэга атрибута блока (ячейка A1) и его текстовое значение (ячейка A2). И так по всем блокам в выборке.


тэг1 тэг2 ..
знач1 знач2 ..

При этом, сначала прописываются (*с проверкой на уже записанные в столбцах Excel) имена тэгов в столбцы. А затем в соответствии с именем тэга прописываются текстовые значения этого тэга.

И каждый раз это циклы For..Next.

Подскажите пожалуйста, как можно оптимизировать для большей скорости подобные процедуры: с помощью массивов?

Пример кода:

For Each lBlockObj In objSelectionSet
      Set lBlock = acadDoc.SelectionSets("TempSSet").Item(I - 1)
           
        varAttributes = lBlockObj.GetAttributes
    
'добавление имен тэгов здесь без проверки что уже есть
        For n = LBound(varAttributes) To UBound(varAttributes)
          Cells(2, at_hed).Value = varAttributes(n).TagString
          at_hed = at_hed + 1
        Next n
    
    'запись атрибутов
    For r = 2 To Col_N1
      For n = LBound(varAttributes) To UBound(varAttributes)
        If varAttributes(n).TagString = Cells(2, r).Value Then ActiveCell.Offset(0, r - 2).Value = varAttributes(n).MTextAttributeContent
      Next n
    Next r
    
    ActiveCell.Offset(1, 0).Activate
    
        Set lBlock = Nothing
      Next lBlockObj

* Возможно ли так: Создать 2 массива - 1) массив из 2-х переменных: имена тэгов, которые уже есть в Excel (в 6 строке от 8 колонки до последней заполненной) и номера колонки, 2) массив из 2-х переменных в блоке из выборки: "имя тэга" и его "значение". Затем сравнивая эти 2 массива по совпадению имен тэгов - если совпадают, то по номеру колонки на строку ниже прописывать значение, Если нет - добавлять в следующую пустую колонку "имя нового тэга" и его "значение на строку ниже *под ним"?

Заранее спасибо!