Удаление дубликатов и поиск уникальных значений в столбцах

[maaad]

Добрый день!

Друзья, нужна помощь, необходим скрипт выполняющий работу: Удаление дубликатов и поиск уникальных значений в столбцах.

Описание:
Есть три столбца. Необходимо сформировать четвёртый. Третий столбец исходный. Нужно сравнить значения в 1, 2 и 3 столбцах, и если
 - значение присутствует во всех трёх столбцах, то в четвёртом это значение не нужно;
 - значение присутствует либо в первом столбце либо во втором, но его нет в третьем, то скопировать в четвёртый;
 - значение присутствует и в первом и во втором столбце, но его нет в третьем, то скопировать в четвёртый.

Пробовал сводную таблицу, удаление дубликатов, условное форматирование - Не помогло.

Заранее благодарю.

[Дмитрий Щербаков(The_Prist)]

Вы бы показали какой должен быть результат. Что означает "значение присутствует во всех столбцах"? Как при этом просматривать столбцы? Полностью или только в пределах одной строки?
Какое вообще значение нужно брать для каждой строки и как сравнивать? Ведь если брать из каждого столбца - то получится, что все значения будут присутствовать...

[maaad]

The_Prist, результат приложен, выделен по цветам для понимания.
Столбцы просматривать полностью.

[Дмитрий Щербаков(The_Prist)]

Посмотрите, эта формула подойдет?
=ИЛИ(СЧЁТЕСЛИ($H$2:$I$20;G2)>=2;(СЧЁТЕСЛИ($G$2:$G$20;G2)+СЧЁТЕСЛИ($I$2:$I$20;G2))>=2)
вписываете в столбец. Где ЛОЖЬ(FALSE) - те значения из столбца 1 можно перенести в J.

[maaad]

Уважаемый The_Prist мне необходимы в итоге значения в четвёртом столбце, а не Истина/Ложь.

Спасибо!

[Дмитрий Щербаков(The_Prist)]

Ага. А потом напишите, что это нужно непременно макросом? Озвучьте сразу все условия, чтобы не отнимать чужое время. Потому как Вы упомянули в первом сообщении условное форматирование я предположил, что цель только выявить значения, но не помещать их в отдельный столбец.
Спасибо.

[Perfect2You]

Доброго времени суток.
Насколько я понял, упрощенно сформулировать Вашу проблему так: в столбец результата должны попасть значения, встречающиеся в первых двух столбцах, но не встречающиеся в третьем. Причем попасть в столбец результата единожды.

Код: (vb)

Sub NewV()
Dim CC As Range
Dim i As Long

    i = 2
    For Each CC In Range("G2:H20")
        If Application.IsError(Application.Match(CC.Value, Range("I2:I20"), 0)) And _
                Application.IsError(Application.Match(CC.Value, Range("J2:J" & i), 0)) Then
            Range("J" & i).Value = CC.Value
            i = i + 1
        End If
    Next CC
End Sub

У меня вот так получилось.

[maaad]

2 The_Prist
Да, забыл упомянуть что необходим был макрос. В голове крутился вопрос про макрос, а написать забыл. Сорри.

2 Perfect2You
Спасибо. Проверил, ваш макрос отработал корректно.