Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Office для бизнеса Excel 2010 Excel 2007 Еще…Меньше
Чтобы сравнить данные в двух столбцах 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
Способ 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.
-
Введите в качестве примера следующие данные (оставьте столбец 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
Нужна дополнительная помощь?
Comparing columns of data manually is not a realistic approach when working with large data sets. Let us show you how to compare two columns in Excel using VBA and automate this process.
How to Compare two Columns in Excel
VBA has a built in function called StrComp, which can compare two separate strings. This function returns an integer based on the result of the comparison. Zero ‘0′ means a perfect match, and the sample code we give below highlights the cell if the result is NOT equal to 0.
StrComp function gets 3 arguments. First 2 arguments are the strings to be compared, and the last one is the comparison type. Note that the third argument is optional. If not omitted, the Option Compare setting will determine the type of comparison. Below are available options:
- vbUseCompareOption: Performs a comparison using the setting of the Option Compare statement.
- vbBinaryCompare: Performs a binary comparison. Case sensitive.
- vbTextCompare: Performs a textual comparison. Not case sensitive.
- vbDatabaseCompare: Performs a comparison based on information in your database. Microsoft Access only.
The code requires the user to select columns in a single range. Selected range is assigned to a range variable bothcolumns, and each cell in that range is compared row by row. With statement allows us to not use bothcolumns every time, and the For…Next loop is how we can check for every cell.
Highlighting
After you get the range, you can use the ColorIndex property to set that range a color. Below are some index numbers for colors:
- 3: Red
- 5: Blue
- 6: Yellow
- 0: No Fill
First, you need to add the module into the workbook or the add-in file to be able to use the code. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.
Highlight differences
Sub HighlightColumnDifferences() Dim bothcolumns As Range, i As Integer Set bothcolumns = Selection With bothcolumns For i = 1 To .Rows.Count If Not StrComp(.Cells(i, 1), .Cells(i, 2), vbBinaryCompare) = 0 Then Range(.Cells(i, 1), .Cells(i, 2)).Interior.ColorIndex = 6 End If Next i End With End Sub
Ok. Let’s clarify a few things.
So column A has 10,000 randomly generated values , column I has 5000 randomly generated values. It looks like this
I have run 3 different codes against 10,000 cells.
the for i = 1 to ... for j = 1 to ... approach, the one you are suggesting
Sub ForLoop()
Application.ScreenUpdating = False
Dim stNow As Date
stNow = Now
Dim lastA As Long
lastA = Range("A" & Rows.Count).End(xlUp).Row
Dim lastB As Long
lastB = Range("I" & Rows.Count).End(xlUp).Row
Dim match As Boolean
Dim i As Long, j As Long
Dim r1 As Range, r2 As Range
For i = 2 To lastA
Set r1 = Range("A" & i)
match = False
For j = 3 To lastB
Set r2 = Range("I" & j)
If r1 = r2 Then
match = True
End If
Next j
If Not match Then
Range("I" & Range("I" & Rows.Count).End(xlUp).Row + 1) = r1
End If
Next i
Debug.Print DateDiff("s", stNow, Now)
Application.ScreenUpdating = True
End Sub
Sid’s appraoch
Sub Sample()
Dim wsDes As Worksheet, wsSrc As Worksheet
Dim rngDes As Range, rngSrc As Range
Dim DesLRow As Long, SrcLRow As Long
Dim i As Long, j As Long, n As Long
Dim DesArray, SrcArray, TempAr() As String
Dim boolFound As Boolean
Set wsDes = ThisWorkbook.Sheets("Sheet1")
Set wsSrc = ThisWorkbook.Sheets("Sheet2")
DesLRow = wsDes.Cells(Rows.Count, 1).End(xlUp).Row
SrcLRow = wsSrc.Cells(Rows.Count, 1).End(xlUp).Row
Set rngDes = wsDes.Range("A2:A" & DesLRow)
Set rngSrc = wsSrc.Range("I3:I" & SrcLRow)
DesArray = rngDes.Value
SrcArray = rngSrc.Value
For i = LBound(SrcArray) To UBound(SrcArray)
For j = LBound(DesArray) To UBound(DesArray)
If SrcArray(i, 1) = DesArray(j, 1) Then
boolFound = True
Exit For
End If
Next j
If boolFound = False Then
ReDim Preserve TempAr(n)
TempAr(n) = SrcArray(i, 1)
n = n + 1
Else
boolFound = False
End If
Next i
wsDes.Cells(DesLRow + 1, 1).Resize(UBound(TempAr) + 1, 1).Value = _
Application.Transpose(TempAr)
End Sub
my (mehow) approach
Sub Main()
Application.ScreenUpdating = False
Dim stNow As Date
stNow = Now
Dim arr As Variant
arr = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
Dim varr As Variant
varr = Range("I3:I" & Range("I" & Rows.Count).End(xlUp).Row).Value
Dim x, y, match As Boolean
For Each x In arr
match = False
For Each y In varr
If x = y Then match = True
Next y
If Not match Then
Range("I" & Range("I" & Rows.Count).End(xlUp).Row + 1) = x
End If
Next
Debug.Print DateDiff("s", stNow, Now)
Application.ScreenUpdating = True
End Sub
the results as follows
now, you select the fast compare method 
filling in of the random values
Sub FillRandom()
Cells.ClearContents
Range("A1") = "Column A"
Range("I2") = "Column I"
Dim i As Long
For i = 2 To 10002
Range("A" & i) = Int((10002 - 2 + 1) * Rnd + 2)
If i < 5000 Then
Range("I" & Range("I" & Rows.Count).End(xlUp).Row + 1) = _
Int((10002 - 2 + 1) * Rnd + 2)
End If
Next i
End Sub
Добрый день! Помогите пожалуйста написать макрос для сравнения 2 столбцов, я в VBA совсем не разбираюсь, но думаю это можно сделать как-то быстро.
Суть вот какая: в первой колонке(A) номера уникальные и не повторяются, во второй колонке(В) номера не уникальные. Номера могут идти не по порядку. Задача следующая: определить те строки значения которых из первой колонке отсутствуют во второй, остальные удалить.
На примере будет понятнее:
| A | B |
| 01 | |
| 02 | 01 |
| 03 | 01 |
| 04 | 01 |
| 05 | 02 |
| 06 | 02 |
| 07 | 03 |
| 08 | 07 |
| 09 | 07 |
| 10 | 04 |
| 11 | 04 |
| 12 | 10 |
| 13 | 10 |
| 14 | 11 |
| 15 | 14 |
Итого: значений 05, 06, 08, 09, 12,13 и 15 нет в колонке B, поэтому эти строки не трогаем, а остальные удаляем.
Алгоритм я представляю себе следующим образом(пример другой)
Цикл пока A (i+1) не пустая
A1 не равно B1 следующая
A1 не равно B2, следующая
A1 равно B2 удалить строку A1, переход к A2
А2 не пустая продолжаем
А2 не равно B1 следующая
А2 не равно B2 следующая
А2 не равно B3 следующая
A3 не равно B1 следующая
A3 не равно B2 следующая
A3 не равно B3 следующая
A4 пустая — конец макроса.
Тут нужно 2 цикла 1 вложен в другой?
Очень прошу помогите чем можете!
Содержание
- Vba excel сравнение двух столбцов
- Сравнение данных в двух столбцах для поиска дубликатов в Excel
- Способ 1. Использование формулы на этом этапе
- Способ 2. Использование макроса Visual Basic макроса
- Exceltip
- Блог о программе Microsoft Excel: приемы, хитрости, секреты, трюки
- Как сравнить два столбца в Excel — методы сравнения данных Excel
- Использование условного оператора ЕСЛИ
- Использование формулы подстановки ВПР
- Использование макроса VBA
- Использование надстройки Inquire
- Вам также могут быть интересны следующие статьи
- 53 комментария
- Vba excel сравнение двух столбцов
- Как сравнить два столбца и выделить несогласованные данные в Excel?
Vba excel сравнение двух столбцов
Сам в программировании не силен, поэтому прошу помощи со следующей задачей:
1. Нужно сравнить два столбца данных с различным количеством строк и вывести одинаковые значения второго столбца напротив первого столбца. При этом необходимо чтобы строки в первом столбце не менялись местами.
2. Возможно ли привязать ко 2-му столбцу еще несколько столбцов с данными (например цена, количество), чтобы их строки вместе со строками 2-го столбца выстраивались напротив одинаковых значений. Например:
Есть макрос, который сравнивает содержимое 2-х соседних столбцов на одинаковые значения и выводит на отдельном листе результат, сортируя одинаковые значения напротив друг друга и выделяя их цветом. Но при этом порядок значений в 1 столбце меняется.
Вот сам макрос:
_
Sub Main()
Dim i As Long, j As Long, a(), b(), x As Range, y As Range
Application.ScreenUpdating = False: Sheets(2).Activate: Cells.Delete
Sheets(1).Columns(1).Copy [A1]: Sheets(1).Columns(2).Copy [B1]: Columns(1).Copy [C1]
Range([B1], Cells(Rows.Count, 2).End(xlUp)).Copy Cells(Rows.Count, 3).End(xlUp).Offset(1)
[C:C].Sort Key1:=[C1], Order1:=xlAscending, Header:=xlGuess
a = Range([C1], Cells(Rows.Count, 3).End(xlUp)).Value: ReDim b(1 To UBound(a, 1), 1 To 2): i = 1: j = 1
Do
Set x = Columns(«A»).Find(a(i, 1))
If Not x Is Nothing Then
b(j, 1) = a(i, 1): x.Value = «»
End If
Set y = Columns(«B»).Find(a(i, 1))
If Not y Is Nothing Then
b(j, 2) = a(i, 1): y.Value = «»
End If
If Not x Is Nothing And Not y Is Nothing Then i = i + 2 Else i = i + 1
j = j + 1
Loop While i ——— примечание модератора — вдруг кому пригодится —————
Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.
Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.
В настройках программы можно задать:
- где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
- с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
- какие столбцы сравнивать (можно задать несколько столбцов)
- значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)
Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк
Источник
Сравнение данных в двух столбцах для поиска дубликатов в Excel
Чтобы сравнить данные в двух столбцах Microsoft Excel и найти повторяющиеся записи, воспользуйтесь следующими способами.
Способ 1. Использование формулы на этом этапе
На новом примере введите следующие данные (оставьте столбец B пустым):
Введите в ячейку B1 следующую
Выберем ячейку С1 по B5.
В Excel 2007 и более поздних версиях Excel выберите Заполнить в группе Редактирование, а затем выберите Вниз.
Повторяющиеся числа отображаются в столбце B, как в следующем примере:
Способ 2. Использование макроса Visual Basic макроса
Предупреждение: Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации без гарантии, выраженной или подразумеваемой. Это относится и не только к подразумеваемой гарантии пригодности и пригодности для определенной цели. В этой статье предполагается, что вы знакомы с языком программирования, который демонстрируется, и средствами, используемыми для создания и от debug procedures. Инженеры службы поддержки Майкрософт могут объяснить функциональные возможности конкретной процедуры. Однако они не будут изменять эти примеры, чтобы обеспечить дополнительные функциональные возможности или процедуры по построению в необходимом порядке.
Чтобы использовать макрос Visual Basic для сравнения данных в двух столбцах, с помощью следующих действий:
Нажмите ALT+F11, чтобы запустить Visual Basic редактора.
В меню Вставка выберите Модуль.
Введите следующий код на листе модуля:
Нажмите ALT+F11, чтобы вернуться к Excel.
Введите в качестве примера следующие данные (оставьте столбец B пустым):
Источник
Exceltip
Блог о программе Microsoft Excel: приемы, хитрости, секреты, трюки
Как сравнить два столбца в Excel — методы сравнения данных Excel
Умение сравнивать два массива данных в Excel часто пригождается для людей, обрабатывающих большие объемы данных и работающих с огромными таблицами. Например, сравнение может быть использовано в выявлении повторяющихся значений, корректности занесения данных или внесение данных в таблицу в срок. В статье ниже описаны несколько приемов сравнения двух столбцов с данными в Excel.
Использование условного оператора ЕСЛИ
Метод использования условного оператора ЕСЛИ отличается тем, что для сравнения двух столбцов используется только необходимая для сравнения часть, а не весь массив целиком. Ниже описаны шаги по реализации данного метода:
Разместите оба столбца для сравнения в колонках A и B рабочего листа.
В ячейке С2 введите следующую формулу =ЕСЛИ(ЕОШИБКА(ПОИСКПОЗ(A2;$B$2:$B$11;0));»»;A2) и протяните ее до ячейки С11. Данная формула последовательно просматривает наличие каждого элемента из столбца A в столбце B и возвращает значение элемента, если оно было найдено в столбце B.
Использование формулы подстановки ВПР
Принцип работы формулы аналогичен предыдущей методике, отличие заключается в использовании формулы ВПР, вместо ПОИСКПОЗ. Отличительной особенностью данного метода также является возможность сравнения двух горизонтальных массивов, используя формулу ГПР.
Чтобы сравнить два столбца с данными, находящимися в столбцах A и B(аналогично предыдущему способу), введите следующую формулу =ВПР(A2;$B$2:$B$11;1;0) в ячейку С2 и протяните ее до ячейки С11.
Данная формула просматривает каждый элемент из основного массива в сравниваемом массиве и возвращает его значение, если оно было найдено в столбце B. В противном случае Excelвернет ошибку #Н/Д.
Использование макроса VBA
Использование макросов для сравнения двух столбцов позволяет унифицировать процесс и сократить время на подготовку данных. Решение о том, какой результат сравнения необходимо отобразить, полностью зависит от вашей фантазии и навыков владения макросами. Ниже представлена методика, опубликованная на официальном сайте Микрософт.
Создайте новый модуль кода VBA и введите следующий код. О том, как писать макросы вы можете прочитать более подробно в статье написания VBA кода.
В данном коде переменной CompareRange присваивается диапазон со сравниваемым массивом. Затем запускается цикл, который просматривает каждый элемент в выделенном диапазоне и сравнивает его с каждым элементом сравниваемого диапазона. Если были найдены элементы с одинаковыми значениями, макрос заносит значение элемента в столбец С.
Чтобы использовать макрос, вернитесь на рабочий лист, выделите основной диапазон (в нашем случае, это ячейки A1:A11), нажмите сочетание клавиш Alt+F8. В появившемся диалоговом окне выберите макрос Find_Matches и щелкните кнопку выполнить.
После выполнения макроса, результат должен быть следующим:
Использование надстройки Inquire
С запуском версии 2013, Excel обзавелась интересной надстройкой под названием Inquire, которая позволяет сравнивать и анализировать два файла Excel. Если вам необходимо сравнить две версии одного и того же файла, например, после создания книги, ваши коллеги внесли кое-какие изменения, и вам нужно определить что именно они изменили, воспользуйтесь инструментом WorkbookCompare надстройки Inquire. Подробнее о том, как устанавливать, запускать и использовать надстройку читайте в моей предыдущей статье про надстройку Inquire.
Итак, мы рассмотрели несколько способов сравнения данных в Excel, которые помогут вам решить некоторые аналитические задачи и упростят работу в поиске повтояющихся (или уникальных) значений.
Вам также могут быть интересны следующие статьи
53 комментария
Спасибо, у вас очень понятно и красиво оформлено, глаз радует
для меня трудность- понять работу ПОИСКОЗ. Если не трудно сделайте пост с пояснениями по данной формуле.
Добрый день, Сергей. Про формулы подстановки можете прочитать в одной из моих предыдущих статей.
Молодца. Читаю Ваши статьи, наглядно и доходчиво, Спасибо.
Огромное спасибо!
Благодаря приведенной Вами формуле =ЕСЛИ(ЕОШИБКА(ПОИСКПОЗ(A2;$B$2:$B$11;0));»»;A2) я смогла сравнить два списка (9 и 2 тысячи позиций в каждом).
Но выплыла другая проблема. В списках есть одинаковые данные, отличающиеся только значком *. После выполнения формулы были отмечены, как совпадающие, и данные с * и без *. Что нужно поменять в формуле, чтобы она возвращала только точные совпадения?
Спасибо.
Пришлите пример, пожалуйста, не совсем понял ситуацию. Видимо сравнение идет по формулам, а с ними уже посложнее будет
Добрый день, Ренат!
Пробовала с помощью вашей формулы сравнить два столбца с датами, затем с договорами. К сожалению, не получается. Ячейки получаются пустыми, хотя большинство значений совпадают (но excel их тотально не видит). Подскажите, в чем может быть ошибка?
Пришлите, пожалуйста, файл с примером, посмотрим
Доброго времени суток!
Спасибо за полезную статью!
Сравнение прошло успешно, но при попытке сохранить результат сравнения «Export Result» выходит ошибка «Unable to save the export file. Error: Exception from HRESULT: 0x800AC472» и ничего не сохраняется. Не знаете в чём может быть дело? Office 2013 Home and Bussiness Windows 8.1 Pro
Забыл добавить! Для сравнения использовал Inquire.
Добрый день, Антон. Честно говоря, не сталкивался с подобной проблемой, поэтому чем-то конкретным помочь не могу. Но официальном сайте данная ошибка описана, если это вам поможет, скидываю ссылку на страницу
Ренат, спасибо большое за статью! Очень пригодилась в сравнении формула! 🙂
День добрый, Ренат
статья хорошая, доступно)))
Огромная просьба, рассмотрите мою проблему.
Чаще требуется не просто 2 столбца данных сравнить, а сравнить два прайса. Индентификатором будет код или артикул — а при совпадении значений надо сопоставить цены. НАпример А-артикулы основного массива, В-Цены основного массива, Д-Артикулы сравниваемого массива и Е-цены сравниваемого массива. При совпадении артикула в А и Д в столбик С копировать цену из соответствующего Е.
Обычно по фирмам прайсы составлены по разному, артикулы разбросаны и чтоб сравнить цены полдня (в лучшем случае) убиваешь на рутину((((
Источник
Vba excel сравнение двух столбцов
Как сравнить два столбца и выделить несогласованные данные в Excel?
Как показано на скриншоте ниже, для сравнения двух столбцов соседних ячеек и выделения несогласованных данных вы можете попробовать методы, описанные в статье.
The Compare Ranges utility of Kutools for Excel can help you solve the problem. See below screenshot:
- Select the the two columns you will compare for unmatched data highlighting.
- Select Different Value option.
- Specify a background color for highlighting.
Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 60 days. Download the free trial now
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
Как показано на скриншоте выше, вы сравниваете данные в столбце A и столбце B. Запустите следующий код VBA, чтобы выделить несопоставленные данные.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код в окно кода.
Код VBA: сравните два столбца и выделите несогласованные данные
3. нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel в диалоговом окне выберите первый столбец, который необходимо сравнить, затем щелкните значок OK кнопка. Смотрите скриншот.
4. Затем выберите второй сравниваемый столбец в следующем всплывающем окне. Kutools for Excel диалоговое окно.
5. В диалоговом окне, как показано на скриншоте ниже, для выделения несогласованных данных щелкните значок Нет кнопку.
Затем все несогласованные данные между двумя столбцами немедленно выделяются. Смотрите скриншот:
Если вы просто хотите узнать и выделить, существуют ли значения ячеек в столбце в другом столбце или нет, например, как показано на скриншоте ниже, номер 2 в столбце A не существует в столбце B, вы можете попробовать Сравнить диапазоны полезности Kutools for Excel.
1. Нажмите Кутулс > Вставить > Выберите одинаковые и разные ячейки. Смотрите скриншот:
2. в Выберите одинаковые и разные ячейки диалоговое окно необходимо настроить следующим образом:
3. Затем появится диалоговое окно, чтобы сообщить вам, сколько ячеек только в столбце A, но не в столбце B, нажмите кнопку ОК, и все совпавшие ячейки будут выбраны в столбце A.
Если вы хотите получить бесплатную пробную версию ( 30 -день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Источник