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

@Tatiana_R · Регистрация: 04.03.2014

Студворк — интернет-сервис помощи студентам

Добрый день,

Помогите, пожалуйста, составить макрос:

имеется лист со столбцами A и B. В столбце A находятся данные, которые нужно сравнить с имеющимися в столбце B. Сравнивать ячейку нужно со всем столбцом B (не по парам). Если данные не совпадают, то в столбец C нужно вывести только несовпавшие значения и из столбца A и из столбца В.

Заранее спасибо.

toiai · 04.03.2014, 20:15

Выложи пример.

@Tatiana_R · 04.03.2014, 21:08 **[ТС]**

Вот пример

excel1.xlsx

toiai · 04.03.2014, 22:10

Вот пример с использованием словаря:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Otlichiya()
    Dim arr As Variantt
    Dim i As Long
    Dim d1 As Object, d2 As Object
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")
    arr = Sheets(1).UsedRange
    For i = 1 To UBound(arr)
        If arr(i, 2) <> Empty Then d1.Add arr(i, 2), arr(i, 2)
    Next i
    For i = 1 To UBound(arr)
        If arr(i, 1) <> Empty Then
            If Not d1.exists(arr(i, 1)) Then d2.Add arr(i, 1), arr(i, 1)
        End If
    Next i
    arr = d2.Keys
    With Sheets(1)
        .Cells(1, 3).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
    End With
End Sub

@Tatiana_R · 05.03.2014, 01:36 **[ТС]**

Спасибо большое-пребольшое за помощь, все работает!!!

@Aleksejs1 · 09.01.2018, 15:25

привет всем . выложите пожалйста кому не сложно готовый файл эксля кто может с этим макросом очень срочно нужен а этот код у меня не работает почему то

@Hugo121 · 09.01.2018, 15:40

Этот код не будет работать на Маке, ну и иногда (редко) бывает что в Винде нет необходимого компонента.

@Aleksejs1 · 09.01.2018, 15:44

у меня не мак. можетие дать рабочий какой должен быть а на чем запустить я найду .

@Hugo121 · 09.01.2018, 16:39

Я - нет.

@dzug · 09.01.2018, 18:52

На какой строке "спотыкается" (останавливается) макрос ?

@Казанский · 10.01.2018, 00:10

Aleksejs1, вставьте код из #4 в файл из #3. Не знаете, как это сделать? F1 - Макросы или
http://www.planetaexcel.ru/techniques/3/59/

Добавлено через 5 часов 1 минуту
Во второй строке кода лишняя буква t в конце!

Visual Basic
1
    Dim arr As Variant

@Vik11111 · 18.08.2019, 13:27

Добрый день
У меня очень похожая задача, мне нужно будет немного код подправить под свои нужды. Но я не силен в макросах (особенно со словарями впервые сталкиваюсь), обычно справляюсь с макросами из интернета, когда есть комментарии к строкам кода, что делает строка. Будьте добры, откомментируйте, пожалуйста, код

@peacemaker_kiss · 07.04.2020, 13:31

Ребята выручайте
Почему ругается?

@peacemaker_kiss · 07.04.2020, 13:35

Прикладываю файл

@pashulka · 07.04.2020, 13:56

peacemaker_kiss, Он же Вам чёрным по ~~белому~~ серому пишет, что в ячейках листа встречаются повторы.

@peacemaker_kiss · 07.04.2020, 14:09

Так они и должны быть
Задача макроса проверить два столбца, найти повторы и выдать в столбец С те, которые в столбиках не повторяются

@Hugo121 · 07.04.2020, 15:45

Это задача для другого макроса. Для того что в #4 - задача найти НЕповторы только в одном списке. А в другом (который образец) повторов нет!

@peacemaker_kiss · 08.04.2020, 05:47

Низкий Вам поклон...до земли

Новые блоги и статьи Все статьи Все блоги /
Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .
PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .

@Tatiana_R 0 / 0 / 0 Регистрация: 04.03.2014 Сообщений: 3

	Сравнение двух столбцов в Excel и вывод несовпавших данных 04.03.2014, 19:58. Показов 9729. Ответов 17 Метки нет (Все метки) Добрый день, Помогите, пожалуйста, составить макрос: имеется лист со столбцами A и B. В столбце A находятся данные, которые нужно сравнить с имеющимися в столбце B. Сравнивать ячейку нужно со всем столбцом B (не по парам). Если данные не совпадают, то в столбец C нужно вывести только несовпавшие значения и из столбца A и из столбца В. Заранее спасибо. 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	04.03.2014, 20:15
	Выложи пример. 0

@Tatiana_R 0 / 0 / 0 Регистрация: 04.03.2014 Сообщений: 3
	04.03.2014, 21:08 [ТС]
	Вот пример excel1.xlsx 0

@Tatiana_R 0 / 0 / 0 Регистрация: 04.03.2014 Сообщений: 3
	05.03.2014, 01:36 [ТС]
	Спасибо большое-пребольшое за помощь, все работает!!! 0

@Aleksejs1 0 / 0 / 0 Регистрация: 09.01.2018 Сообщений: 2
	09.01.2018, 15:25
	привет всем . выложите пожалйста кому не сложно готовый файл эксля кто может с этим макросом очень срочно нужен а этот код у меня не работает почему то 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	09.01.2018, 15:40
	Этот код не будет работать на Маке, ну и иногда (редко) бывает что в Винде нет необходимого компонента. 0

@Aleksejs1 0 / 0 / 0 Регистрация: 09.01.2018 Сообщений: 2
	09.01.2018, 15:44
	у меня не мак. можетие дать рабочий какой должен быть а на чем запустить я найду . 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	09.01.2018, 16:39
	Я - нет. 0

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	09.01.2018, 18:52
	На какой строке "спотыкается" (останавливается) макрос ? 0

@Vik11111 0 / 0 / 0 Регистрация: 18.08.2019 Сообщений: 1
	18.08.2019, 13:27
	Добрый день У меня очень похожая задача, мне нужно будет немного код подправить под свои нужды. Но я не силен в макросах (особенно со словарями впервые сталкиваюсь), обычно справляюсь с макросами из интернета, когда есть комментарии к строкам кода, что делает строка. Будьте добры, откомментируйте, пожалуйста, код 0

Опции темы

@peacemaker_kiss 0 / 0 / 0 Регистрация: 06.08.2015 Сообщений: 5
	07.04.2020, 13:31
	Ребята выручайте Почему ругается? Миниатюры 0

@pashulka 4138 / 2242 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	07.04.2020, 13:56
	peacemaker_kiss, Он же Вам чёрным по ~~белому~~ серому пишет, что в ячейках листа встречаются повторы. 0

@peacemaker_kiss 0 / 0 / 0 Регистрация: 06.08.2015 Сообщений: 5
	07.04.2020, 14:09
	Так они и должны быть Задача макроса проверить два столбца, найти повторы и выдать в столбец С те, которые в столбиках не повторяются 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	07.04.2020, 15:45
	Это задача для другого макроса. Для того что в #4 - задача найти НЕповторы только в одном списке. А в другом (который образец) повторов нет! 0

@peacemaker_kiss 0 / 0 / 0 Регистрация: 06.08.2015 Сообщений: 5
	08.04.2020, 05:47
	Низкий Вам поклон...до земли 0

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

Решение