Поиск в Excel повторяющихся решений можно производить несколькими способами. Мы сегодня поговорим о двух вариантах поиска в Excel. Первый из них – с использованием специальных формул. Допустим, Вам нужно произвести поиск в Excel, сравнив данный двух столбиков. Запускаем программу.  Вводим в новый лист данные, показанные ниже, при этом, столбик В нам надо оставить пустым.

Затем в клеточку В1 надо поместить эту формулу: =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1) и выделить ячейки начиная с В1 по В5. Кстати, если Вы используете 2003 версию (или более раннюю версию программы), вам нужно выбрать проследовать в Правку, найти пункт Заполнить и пункт Вниз.

При поиске в Excel всех повторяющихся значений будет примерно такая картина:

   A1: 1   B1:     C1: 3

   A2: 2   B2: 2   C2: 5

   A3: 3   B3: 3   C3: 8

   A4: 4   B4:     C4: 2

   A5: 5   B5: 5   C5: 0

То есть, при поиске Еxcel выдала нам число повторений.

Второй вариант – использование макросов. Чтобы сравнить информацию, расположенную в двух столбиках, запускаем  экзель, и с помощью сочетаний клавиш Alt+F11 запускаем редактор VBA. Находим меню Вставка, там выбираем команду Модуль. В окно модуля помещаем данный код (прим. Код был взят с официального сайта компании Майкрософт, однако, возможно, он не во всех случаях будет работать адекватно. Сказать точнее сложно ввиду недостаточной базы для анализа)

Sub Find_Matches()

    Dim CompareRange As Variant, x As Variant, y As Variant

    ' Назначьте переменной CompareRange диапазон, с которым

    ' нужно сравнить выделенный диапазон.

    Set CompareRange = Range("C1:C5")

    ' Примечание. Если диапазон ячеек, с которыми нужно сравнить выделенные ячейки,

    ' относится к другой книге или другому листу, используйте приведенный ниже синтаксис.

    ' Set CompareRange = Workbooks("Book2"). _

    '   Worksheets("Sheet2").Range("C1:C5")

    '

    ' В следующем цикле каждая выделенная ячейка сравнивается

    ' с каждой ячейкой из диапазона CompareRange.

    For Each x In Selection

        For Each y In CompareRange

            If x = y Then x.Offset(0, 1) = x

        Next y

    Next x

End Sub