Код статьи: 213367 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

В этой статье

Аннотация

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

Дополнительная информация

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

Чтобы сравнить данные в двух столбцах с помощью формулы, выполните указанные ниже действия.
  1. Запустите Excel.
  2. Введите в ячейки нового листа следующие данные (столбец B оставьте пустым):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 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 x
    End Sub
    					
  5. Нажмите клавиши ALT+F11, чтобы вернуться в Excel.
  6. Введите следующие данные (столбец B оставьте пустым):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 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
				

Свойства

Код статьи: 213367 - Последний отзыв: 8 мая 2007 г. - Revision: 4.1
Информация в данной статье относится к следующим продуктам.
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
Ключевые слова: 
kbdtacode kbhowto kbprogramming KB213367

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com