Поиск в excel повторяющихся значений

Рейтинг пользователей: / 17
ХудшийЛучший 

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

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

Поиск в excel

При поиске в 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


Newer news items:
Older news items:

 
Войти



Голосование
Какую сумму денег вы готовы потратить на летний отдых?