Состыковка двух массивов

[manula]

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

такой алгоритм, коллега, можно организовать условным форматирование столбца:

=счетесли(C;RC)>1

и задать заливку кроваво-красным цветом
а потом... как только увидите в столбце ячейку с кроваво-красной заливкой - значит где есть еще, как минимум, одна такая!

Как вариант Вы правы коллега, но если я не знаю в какой строке код повторится, поэтому и нужен алгоритм для прохода по всем строкам и нахождения повторений, ваш алгоритм хорош в том случае если записей немного, а если их больше 45000 к примеру, возможно я и ошибаюсь, щас попробую.

[IgorGO]

читайте внимательнее: одна формула на весь столбец (записывается 1 раз, отметили столбец, задали условный формат).
не надо ни каких проходов и совершенно по-барабану, что в какой строке повториться. все повторы будут отмечены указанным Вами форматом

[Hugo121]

Да, всплыли некоторые тонкости.
1. если код в листе, то не хватает точек перед Range! Если перенести в стандартный модуль - то работает и без этих точек.
2. необходимо добавить intersect!

Вариант в листе (немного скорректировал под новые данные):

Private Sub CommandButton1_Click()
    x = Sheets(2).[a1].CurrentRegion.Rows.Count
    y = Sheets(2).Rows.Count - x
    With Sheets(3)
        With Intersect(.UsedRange, .Range(.Cells(3, 1), .Cells(y + 3, 3)))
            .Copy Sheets(2).Cells(x + 1, 1)
            .EntireRow.Delete
        End With
    End With
End Sub

[Hugo121]

Игорь, а как найти залитую красным например ячейку A43568 ? Фильтр ведь не сработает? Или сработает? Не могу проверить...

[IgorGO]

)))очень правильный вопрос
ответ: по-старинке, как в каменном веке, окинув данные орлиным взором

если встретился одинаковый код, то выделить эту строку любым цветом для наглядности

выделено строго для наглядности - функция практической пользы от этого способа (при 45 тыс. строк данных) стремится к нулю. а с учетом того, что данные могут повторятся на разных листах - это еще и умножено на 0 (чтобы наверняка).

Практическую пользу я оценил бы именной такой величиной 0*0, manula, Вы согласны, коллега?

[manula]

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