Преминаване към основното съдържание
Поддръжка
Влизане с Microsoft
Влезте или създайте акаунт.
Здравейте,
Изберете друг акаунт.
Имате няколко акаунта
Изберете акаунта, с който искате да влезете.

Можете да използвате следните методи, за да сравните данните в две колони на работен лист на 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

Нуждаете ли се от още помощ?

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

Общностите ви помагат да задавате и отговаряте на въпроси, да давате обратна връзка и да получавате информация от експерти с богати знания.

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

Доколко сте доволни от качеството на езика?
Какво е повлияло на вашия потребителски опит?
Като натиснете „Подаване“, вашата обратна връзка ще се използва за подобряване на продуктите и услугите на Microsoft. Вашият ИТ администратор ще може да събира тези данни. Декларация за поверителност.

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

×