Номер статті: 213367 - Показ продуктів, яких стосується ця стаття.
Розгорнути все | Згорнути все

На цій сторінці

ПІДСУМКИ

У цій статті описано два способи порівняння даних для пошуку повторюваних значень у двох стовпцях аркушів 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 - Востаннє переглянуто: 28 листопада 2007 р. - Редакція: 4.1
ЗАСТОСОВУЄТЬСЯ ДО:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 - стандартний випуск
  • Microsoft Excel 2000 - стандартний випуск
Ключові слова: 
kbhowto kbprogramming kbdtacode 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