В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

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

Поддержка Office 2003 завершена

8 апреля 2014 г. корпорация Майкрософт прекратила поддержку Office 2003. Это повлияло на обновления программного обеспечения и параметры безопасности. Узнайте, что это значит для вас и какие меры по безопасности можно предпринять.

Аннотация
В данной статье описаны два способа сравнения данных и поиска повторяющихся значений в двух столбцах листов Microsoft Excel.
Дополнительная информация

Способ 1. Использование формулы

Чтобы сравнить данные в двух столбцах с помощью формулы, выполните указанные ниже действия.
  1. Запустите Excel.
  2. Введите в ячейки нового листа следующие данные (столбец B оставьте пустым):
    A1: 1   B1:     C1: 3A2: 2   B2:     C2: 5A3: 3   B3:     C3: 8A4: 4   B4:     C4: 2A5: 5   B5:     C5: 0					
  3. Введите в ячейку B1 следующую формулу:
    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
  4. Выделите ячейки B1:B5.
  5. Если используется Microsoft Office Excel 2003 или более ранняя версия Excel, выберите в меню Правка пункт Заполнить, а затем — пункт Вниз.

    Если используется Microsoft Office Excel 2007, выберите в группе Правка пункт Заполнить, а затем — пункт Вниз.

    Повторяющиеся числа будут отображены в столбце B, как в приведенном ниже примере.
       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					

Способ 2. Использование макроса Visual Basic

Корпорация Майкрософт приводит примеры программного кода только для иллюстрации и не предоставляет явных или подразумеваемых гарантий относительно их пригодности для применения в пользовательских приложениях. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования и необходимых средств разработки и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры, но не будут изменять примеры для реализации дополнительных возможностей или удовлетворения требований конкретных пользователей. Чтобы сравнить данные в двух столбцах с помощью макроса Visual Basic, выполните действия, описанные в приведенном ниже примере.
  1. Запустите Excel.
  2. Нажмите клавиши ALT+F11, чтобы запустить редактор Visual Basic.
  3. В меню Insert (вставка) выберите команду Module (модуль).
  4. Введите в окне модуля приведенный ниже код.
    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 xEnd Sub					
  5. Нажмите клавиши ALT+F11, чтобы вернуться в Excel.
  6. Введите следующие данные (столбец B оставьте пустым):
    A1: 1   B1:     C1: 3A2: 2   B2:     C2: 5A3: 3   B3:     C3: 8A4: 4   B4:     C4: 2A5: 5   B5:     C5: 0					
  7. Выделите диапазон ячеек A1:A5.
  8. Если используется Microsoft Office Excel 2003 или более ранняя версия Excel, выберите в меню Сервис пункт Макрос, а затем — пункт Макросы.

    Если используется Excel 2007, откройте вкладку Разработчик и щелкните пункт Макрос в группе Код.
  9. Щелкните макрос Find_Matches и нажмите кнопку Выполнить.
Повторяющиеся номера будут отображены в столбце B. Соответствующие номера будут размещены рядом с первым столбцом, как показано ниже.
   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				
match data XL2000 XL2002 XL2003 XL2007
Свойства

Номер статьи: 213367 — последний просмотр: 05/08/2007 08:53:43 — редакция: 4.1

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition

  • kbdtacode kbhowto kbprogramming KB213367
Отзывы и предложения