Макросы в 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. Выберем ячейку С1 по 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 макроса

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

Чтобы использовать макрос 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