Сравнение двух массивов с переносом данных

[Hoochara]

Добрый день уважаемые программисты.
Помогите пожалуйсто написать макрос на сравнение двух листов таблицы с переносом данных.

Нужно взять значения из листа ost первого столбца и сравнить с первым столбцом листа sell, если значения одинаковые то проставить в ost в 8 и 9 столбец данные из sell

Я написал макрос с формулой впр, но так как в файле около 80 000 строк, макрос делается около 2 часов или просто зависает эксель. Сказали что тут нужна работа с массивами.

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

Во вложении фаил с моим макросом и второй фаил с полным файлом без макросов.

[Hugo121]

Да, нужно код писать на словаре/коллекции и массивах...
Запустил свой код
http://www.excelworld.ru/index/comparefiles_find/0-25
или
http://hugo.nxt.ru/CompareFiles.Find.rar

Работает, но ждать надоело, где-то тоже на час вероятно... Сделал 38% минут за 15-20.
Если интересно - настройки были такие:

Файл - приёмник: C:\tmp\Hoochara\stores_full.xls
Файл - источник: C:\tmp\Hoochara\stores_full.xls
Столбцы сравнения в приёмнике: E,F,D,C,B
Столбцы сравнения в источнике: F,G,D,C,B
Лист - приёмник (№): 5
Лист - источник (№): 4
Столбцы - приёмники данных копирования: h,i
Столбцы - источники данных копирования: h,i

Но это 58000х14000 строк, на большем объёме будет соотвестственно дольше...

P.S. "значения из листа ost первого столбца" - тут что-то не того, я сравнивал все столбцы почти со всеми, по настройкам видно

[Hoochara]

мне ведь код нужен а не посчитать 1 раз =/
А так спасибо =)

[Hugo121]

Ну тем кодом можно 15 раз посчитать... А если купить - то бесконечно. Но под эту задачу медленноват
Но зато никому ничего писать не нужно.

[EugeneS]

см. вложение

[Hoochara]

Евгеничь, супер. Но только мог бы подправить так чтоб 7 и 3 столбец Сцеплялись в обоих листах и данные уже вставлялись по этим значениям?

Просто я пока в том что ты написал не разберусь, что и как вставляется. Тоесть у меня данные должны сравниваться одновременно 7 и 3 колонка в одно и в другом листе

[Hugo121]

Ну вот, теперь можно и погоняться

Sub testDic()
    Dim t!: t = Timer

    Dim sell As Worksheet, ost As Worksheet, x, y, z, i&, temp$

    Set sell = Sheets("sell")
    Set ost = Sheets("ost")

    With sell
        x = .Range(.Range("b2"), .Cells(Rows.Count, "b").End(xlUp).Offset(, 7)).Value
    End With

    With ost
        y = .Range(.Range("b2"), .Cells(Rows.Count, "b").End(xlUp).Offset(, 7)).Value
        ReDim z(1 To UBound(y), 1 To 2)

        With CreateObject("Scripting.dictionary")
            .CompareMode = 1    'TextCompare

            For i = 1 To UBound(x)
                temp = x(i, 6) & x(i, 2)
                .Item(temp) = i
            Next

            For i = 1 To UBound(y)

                temp = y(i, 5) & y(i, 2)
                If .exists(temp) Then
                    z(i, 1) = x(.Item(temp), 7)
                    z(i, 2) = x(.Item(temp), 8)
                End If

            Next
            
        End With

        .[h2].Resize(UBound(z), 2) = z

    End With

    Debug.Print "Dictionary: " & Timer - t

End Sub

Результаты (по 6 наименьших):

Dictionary: 1,625
Dictionary: 1,59375
Dictionary: 1,578125
Dictionary: 1,453125
Dictionary: 1,4375
Dictionary: 1,265625
Collection: 2,296875
Collection: 2,1875
Collection: 2,109375
Collection: 2,0625
Collection: 1,78125
Collection: 1,625

В общем, ноздря в ноздрю, но словарь быстрее. А я думал, что будет наоборот.

[kuklp]

Я тоже думал... Интересно. Мало, что словарь дает больше возможностей и с ним работать легче, он еще и шустрей. Спасибо, Игорь. Самому бы лень было:-)

[Hugo121]

Сергей, у тебя тоже быстрее, или мне поверил?

[kuklp]

А с чего я должен тебе не верить? Тем более, что ты на дровах проверяешь, а на моей тачке и медленные дела не тормозят. На старую сейчас БП ремонтирую(не спеша, не горит:-)). И вообще. Мы не первый день вместе, так что верю-не верю тут неуместно.