Сравнение данных в двух столбцах для поиска дубликатов в Excel

Чтобы сравнить данные в двух столбцах 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)
Выберем ячейку С1 по 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

	A	C
1	1	3
2	2	5
3	3	8
4	4	2
5	5	0

	A	B	C
1	1		3
2	2	2	5
3	3	3	8
4	4		2
5	5	5	0

Способ 2. Использование макроса Visual Basic макроса

Предупреждение: Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации без гарантии, выраженной или подразумеваемой. Это относится и не только к подразумеваемой гарантии пригодности и пригодности для определенной цели. В этой статье предполагается, что вы знакомы с языком программирования, который демонстрируется, и средствами, используемыми для создания и от debug procedures. Инженеры службы поддержки Майкрософт могут объяснить функциональные возможности конкретной процедуры. Однако они не будут изменять эти примеры, чтобы обеспечить дополнительные функциональные возможности или процедуры по построению в необходимом порядке.

Чтобы использовать макрос 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.
1. Введите в качестве примера следующие данные (оставьте столбец 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