Щоб порівняти дані у двох стовпцях аркуша 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.
-
У групі Редагування натисніть кнопку Заповнити, а потім виберіть пункт Вниз.Повторювані числа відображаються в стовпці 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 можуть пояснити вам функціональні можливості певної процедури. Однак вони не змінюватимуть ці приклади, щоб надавати додаткові функції або конструювати процедури відповідно до ваших конкретних вимог.
Щоб порівняти дані у двох стовпцях за допомогою макросу Visual Basic, виконайте наведені нижче дії.
-
Запустіть програму Excel.
-
Натисніть клавіші Alt+F11, щоб запустити редактор Visual Basic.
-
У меню Insert (Вставлення) виберіть Module (Модуль).
-
Введіть наведений нижче код на аркуші модулів:
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.
-
Перейдіть на вкладку Розробник і натисніть кнопку Макроси в групі Код .
Примітка.: Якщо вкладка Розробник не відображається, можливо, її потрібно ввімкнути. Для цього виберіть Параметри > файлів>Настроїти стрічку, а потім виберіть вкладку Розробник у полі настроювання праворуч.
-
Клацніть Find_Matches, а потім натисніть кнопку Виконати.Повторювані числа відображаються у стовпці B. Відповідні числа буде поставлено поруч із першим стовпцем, як показано тут:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
