! Сравнить два столбца в Excel'e

[GAL]

Привет! Люди, помогите кто может, ПОЖАЛУЙСТА!
Есть два листа в которых два списка - нужно сравнить столбцы в этих списках между собой. В одном столбце более 900 строк, а в другом более 600. В первом списке присутствуют эти 600 записей и нужно сравнить с 900 и при совпадении удалить, чтобы остались те 300 записей. Вроде бы понятно описал задачу.
Помогите, плиз!

[GSerg]

Один столбец в каждом списке?

[GAL]

В списке №1 есть один столбец с 900 записаными ячейками, в списке №2 один столбец с 600 записаными ячейками и их нужно сравнить и в списке №1 удалить все совпадающие со списка №2 ячейки, чтобы остались те 300, которых нет в списке №2

[GSerg]

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

[GAL]

GSerg спасибо. Но я не понял как этот код использовать. В модуль поставил - не работает. Поясни.

[GSerg]

Ну, например, предварительно сохранившись, можно вызвать

deleteduplicates range("Лист1!A1:A900"), range("Лист2!A1:A600")

[GAL]

GSerg, поясни как под кнопку это подвести или под макрос. Я что-то совсем не въезжаю. Пожалуйста.

[GSerg]

sub test
deleteduplicates range("Лист1!A1:A900"), range("Лист2!A1:A600")
end sub

[GAL]

GSerg! Большое человеческое спасибо! Все работает и код короткий. Желаю тебе удачи в Новом Году и с Рождеством!