Сравнение двух диапазонов на несовпадение

@Gorr98 · Регистрация: 29.06.2016

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

Подскажите пожалуйста, как организовать поиск на несовпадение?
На первом листе таблицу надо сравнить с таблицей на втором листе. Если найдены несовпадения, добавить не совпавшее значение в таблицу на первом листе.
То есть если во второй таблице находится такое значение, которого нет в первой, необходимо добавить его в первую таблицу.

У меня как-то криво все вышло =(

@Hugo121 · 29.06.2016, 20:04

Добавить всё и затем удалить дубликаты чем не вариант?
Тем более что Ваш монстр работает криво - добавляет и добавляет...

@fever brain · 29.06.2016, 20:24

Мой вариант: (в вариант от Gorr98, было тяжело смотреть ..)

Visual Basic

Sub Сравнение()
    Dim r1 As Range, r2 As Range, v, w, i&
    With Sheets(1)
        Set r1 = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1))
    End With
    With Sheets(2)
        Set r2 = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1))
    End With
 
    For Each v In r1
        For Each w In r2
            If v = w Then GoTo 1
        Next
        i = i + 1: Sheets(1).Cells(i, 3) = v
1
    Next
    MsgBox (Choose(Sgn(i) + 1, "Всё совпало", "Имеются различия смотрите колонку [C]"))
End Sub

Добавлено через 5 минут

Сообщение от Hugo121

Тем более что Ваш монстр работает криво - добавляет и добавляет...

Похоже он выложил заведомо кривой вариант с уже добавленными числами на листе, если как он хочет
то всё совпадёт

Сравниваем второй лист с первым наоборот:

Visual Basic

    For Each v In r2
        For Each w In r1
            If v = w Then GoTo 1
        Next
        i = i + 1: Sheets(1).Cells(i, 3) = v
1
    Next

На всякий случай, новые значения у меня пишутся в другую колонку

@IgorTS · 29.06.2016, 21:12

Извиняюсь, что не по теме.
fever brain, проверьте почту

@Hugo121 · 29.06.2016, 21:16

Я сделал как написал - сложил и удалил. И затем выполнил код - и он дописал ниже данные, которые уже есть выше.
Почему так - не знаю, в код не вникал - испугался...

P.S. Я обычно такое решаю через словарь, и используя массивы - но на небольшом количестве можно и циклы гонять, зато просто и красиво

@Gorr98 · 30.06.2016, 00:23 **[ТС]**

Спасибо, господа!
Я, как многие обращающиеся к вам, новичок, и леплю пока все без разбора, а потом пугаюсь.

Да, мой монстр и добавлял все подряд и сообщения на каждую строку писал, вот я и не знал, куда тыкаться)

@fever brain · 30.06.2016, 05:15

Не по теме:

Сообщение от IgorTS

Извиняюсь, что не по теме.
fever brain, проверьте почту

Увидел

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	29.06.2016, 20:04	2
	Добавить всё и затем удалить дубликаты чем не вариант? Тем более что Ваш монстр работает криво - добавляет и добавляет... 0

@IgorTS 0 / 0 / 0 Регистрация: 29.06.2016 Сообщений: 25
	29.06.2016, 21:12	4
	Извиняюсь, что не по теме. fever brain, проверьте почту 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	29.06.2016, 21:16	5
	Я сделал как написал - сложил и удалил. И затем выполнил код - и он дописал ниже данные, которые уже есть выше. Почему так - не знаю, в код не вникал - испугался... P.S. Я обычно такое решаю через словарь, и используя массивы - но на небольшом количестве можно и циклы гонять, зато просто и красиво 0

@Gorr98 0 / 0 / 0 Регистрация: 29.06.2016 Сообщений: 4
	30.06.2016, 00:23 [ТС]	6
	Спасибо, господа! Я, как многие обращающиеся к вам, новичок, и леплю пока все без разбора, а потом пугаюсь. Да, мой монстр и добавлял все подряд и сообщения на каждую строку писал, вот я и не знал, куда тыкаться) 0

@fever brain
	30.06.2016, 05:15 Сравнение двух диапазонов на несовпадение #7
	Не по теме: Сообщение от IgorTS Извиняюсь, что не по теме. fever brain, проверьте почту Увидел 0