Макрос для обработки двух массивов - сопоставление данных

[hammerman]

Есть два массива данных (надо сравнить столбец E МАССИВ1 с столбцом E (сумма) МАССИВ2). По структуре массивы разные, но в них есть столбец "сумма" в обоих массивах, по которому надо провести сравнение. Данные в столбце могут повторяться, поэтому необходимо учесть данный факт при выявлении совпадений. При нахождении совпадения скопировать информацию из столбцов A (операция) и C (дата) файла МАССИВ2 в соответствующую строку МАССИВ1.
Понимаю как это надо сделать, но не хватает опыта в использовании формул и макросов. Пробовал реализовать с помощью PLEX формула VLOOKUP2, но там подстановка при совпадении только для первого найденного значения, а не последующих если таковые были найдены ранее.


--------- примечание модератора - вдруг кому пригодится --------------

Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.

В настройках программы можно задать:

• где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
• с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
• какие столбцы сравнивать (можно задать несколько столбцов)
• значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк

[motorway]

Будет нагляднее, если вы выложите пример файла с примером сопоставления

[hammerman]

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

Будет нагляднее, если вы выложите пример файла с примером сопоставления

Вот ... я и в первый раз выложил, но видно не получилось.

[hammerman]

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

Есть два массива данных (надо сравнить столбец E МАССИВ1 с столбцом E (сумма) МАССИВ2).

При сравнении надо использовать только столбец с суммами и привязаться только к последовательности проверки. Думаю надо цикл в цикле рассматривать, но как это прописать не знаю. Такая особенность построения МАССИВов. Уникальна последовательность сумм, значения ктр могут повторяться.

[Hugo121]

Проверьте (делал на файле planetы):

Option Explicit

Sub sr()
    Dim a(), b(), i&, ii&

    a = Sheets("МАССИВ1").[a1].CurrentRegion.Columns(5).Value
    ReDim c(1 To UBound(a), 1 To 2)
    b = Sheets("МАССИВ2").[a1].CurrentRegion.Value
    
    For i = 1 To UBound(a)
        For ii = 1 To UBound(b)
            If a(i, 1) = b(ii, 5) Then
                c(i, 1) = b(ii, 1)
                c(i, 2) = b(ii, 3)
                b(ii, 5) = ""
                Exit For
            End If
        Next ii, i

        Sheets("МАССИВ1").[g1].Resize(UBound(c), 2) = c
    
    End Sub

[kuklp]

Привет, Игорь. Прикольно ты гоняешься за ТС:-) Он еще и сюда запостил:
http://forum.msexcel.ru/microsoft_ex...h-t6988.0.html

[Hugo121]

Привет, Сергей.
Т.к. тут уже за 50 просмотров - то думаю стОит и тут моё решение показать

[hammerman]

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

Привет, Игорь. Прикольно ты гоняешься за ТС:-) Он еще и сюда запостил:
http://forum.msexcel.ru/microsoft_ex...h-t6988.0.html

Уважаемый, kuklp! Я не постил! Есть задача, ктр я к сожалению своими силами не смог решить. Поэтому большое спс Hugo121 за отклик! А не Вам.

[hammerman]

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

Привет, Сергей.
Т.к. тут уже за 50 просмотров - то думаю стОит и тут моё решение показать

Спс за оперативность. Это действительно важно для меня.

[kuklp]

Я за Вас постил. Мне Ваше спасибо... А вот отписаться везде, что Ваша задача решена, было бы порядочно. Чтоб люди зря время не тратили.