Помогите пожайлуста

[alex77777]

Здравствуйте!

Помогите пожайлуста доработать макрос (см.внизу).
Файл в нем 2 листа (лист1,лист2)
Я сравниваю список столбиком по столбцу А как в Лист1 так и в Лист2.
Возникла необходимость сравнивать по столбцам А B C !

Заранее всем спасибо !


Sub Макрос1()
'
deleteduplicates Range("Лист1!A1:A100"), Range("Лист2!A1:A100")
'
End Sub

Sub deleteduplicates(ByVal from As Range, ByVal r As Range)
Dim c As Range, f As Range

For Each c In r.Columns(1).Cells
Set f = from.Find(c.Value, , xlValues, xlWhole)
If Not f Is Nothing Then f.Delete xlShiftUp
Next
End Sub

[lord0n]

ниче не понял

[alex77777]

что тут не понятного
Мой Пример:

А

ИвановИванИванович

а мне надо чтобы сравнивало по столбцам А В С

А В С

Иванов Иван Иванович

Я сравниваю 2 списка. Мой код который я привёл наверху СРАВНИВАЕТ ФИО И УДАЛЯЕТ
ЧЕЛ. С ОДИНАКОВЫМИ ФИО.

[lord0n]

и в чем трабла?
соединяешь три столбца в одну переменную и начинаешь сравнивать

Код: Выделить всё

fio=renge("A" & x).cells & " " & renge("B" & x).cells & " " & renge("C" & x).cells


или я чета не понял?

[alex77777]

Спасибо