Можете да използвате следните методи, за да сравните данните в две колони на работен лист на Microsoft Excel и да намерите дублирани записи.
Метод 1: Използване на формула на работен лист
-
Стартирайте Excel.
-
В нов работен лист въведете следните данни като пример (оставете колона B празна):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Въведете следната формула в клетка B1:
=IF(ISERROR(MATCH(A1;$C$1:$C$5;0));"";A1) -
Изберете клетка B1 до B5.
-
В 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, за да сравните данните в две колони, използвайте стъпките в следния пример:
-
Стартирайте Excel.
-
Натиснете ALT+F11, за да стартирате редактора на Visual Basic.
-
В менюто Вмъкване изберете Модул.
-
Въведете следния код в лист на модул:
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
-
Натиснете ALT+F11, за да се върнете в Excel.
-
Въведете следните данни като пример (оставете колона B празна):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Изберете клетка от A1 до A5.
-
В Excel 2007 и по-новите версии на Excel изберете раздела Разработчик и след това изберете Макроси в групата Код .
Забележка: Ако не виждате раздела Разработчик , може да се наложи да го включите. За да направите това, изберете Опции за> файл > Персонализиране на лентата, след което изберете раздела Разработчик в полето за персонализиране от дясната страна.
-
Щракнете върху Find_Matches и след това щракнете върху Изпълни.
Дублираните числа се показват в колона B. Съответстващите числа ще бъдат поставени до първата колона, както е показано тук:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0