Преминаване към основното съдържание

Как се сравняват данни в две колони за намиране на дублиращи се записи в Excel

Можете да използвате методите по-долу, за да сравните данни в две колони на работен лист на Microsoft Excel и да намерите дублирани записи. 

Метод 1: използване на формула на работен лист

  1. Стартиране на Excel.

  2. В нов работен лист въведете следните данни като пример (Оставете колоната B празна):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Въведете следната формула в клетка B1:

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. Изберете клетка B1 в B5.

  5. В Excel 2007 и по-нови версии на Excel Изберете запълване в групата Редактиране , след което изберете надолу.

    Дублиращите числа се показват в колона B, като в следния пример: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Метод 2: използване на макрос за Visual Basic

Предупреждение: Microsoft предоставя примери за програмиране само за илюстрация, без да има изрични или подразбиращи се гаранции. Това включва, но не се ограничава до подразбиращите се гаранции за продаваемост или годност за определена цел. В тази статия се предполага, че сте запознати с езика за програмиране, който се показва, и с инструментите, които се използват за създаване и отстраняване на грешки при процедурите. Инженери по поддръжката на Microsoft могат да ви помогнат да обясните функционалността на конкретна процедура. Но те няма да променят тези примери, за да предоставят допълнителна функционалност или да конструират процедури, за да отговорят на вашите конкретни изисквания.

За да използвате макрос на Visual Basic, за да сравните данните в две колони, използвайте стъпките в примера по-долу:

  1. Стартирайте Excel.

  2. Натиснете ALT + F11, за да стартирате редактора на Visual Basic.

  3. В менюто Вмъкване изберете модул.

  4. Въведете следния код в лист на модул:

    Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("C1:C5")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    ' Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in 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.

    1. Въведете следните данни като пример (Оставете колоната B празна):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Изберете клетка a1 към A5.

  7. В Excel 2007 и по-нови версии на Excel Изберете раздела разработчик и след това изберете макроси в групата код .

    Забележка: Ако не виждате раздела " разработчик ", може да се наложи да го включите. За да направите това, изберете Опции за > на файл > Персонализиране на лентатаи след това изберете раздела разработчик , в полето персонализиране отдясно.

  8. Щракнете върху Find_Matchesи след това щракнете върху изпълнение.

    Дублиращите числа се показват в колона B. Съвпадащите числа ще бъдат поставени до първата колона, както е показано тук:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Забележка:  Тази страница е преведена чрез автоматизация и може да съдържа граматически грешки и несъответствия. Нашата цел е това съдържание да ви бъде полезно. Можете ли да ни кажете дали информацията е била полезна за вас? Ето статията на английски за справка.

Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×