Сравнение 2 столбцов (метод find)

[Костян Пират]

Суть задачи:
На листах 1 и 2 в столбце А есть некоторые данные (в одном и том же столбце не повторяются). Необходимо проверить, есть ли на листе 1 ячейки, значения которых отличаются от листа 2, и если есть добавить их в конец столбца на листе 2.

Думаю пройти циклом по столбцу листа 2 и используя метод Find, проверять наличие каждого значения в листе 1.

Вопрос 1: Find должен возвращать булево значение, но чего-то не пойму как его [метод] применить к столбцу.

Вопрос 2: Есть ли встроенные функции для перехода на последнюю непустую строку (или первую пустую)?

[IgorGO]

Syntax
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

Return Value
A Range object that represents the first cell where that information is found.

2.есть: range.End

[Hugo121]

Find вернёт ссылку на ячейку, т.е. на объект.
Пример:

Sub tt()
Dim x As Range
Set x = Columns(1).Find("Строительные материалы, изделия и конструкции", , xlValues, xlWhole)
If Not x Is Nothing Then Range([a1], x.Offset(-1)).EntireRow.Delete
End Sub

И кстати Find'ом будет медленнее, чем на словаре и массивах, как тут например: http://www.programmersforum.ru/showp...53&postcount=5
Если конечно нужно не пару значений сверить.

[Костян Пират]

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

If Not x Is Nothing Then

А можно чуть подробнее об этом куске? чтобы всё это на уровень осознанности вышло)

[Hugo121]

If Not x Is Nothing Then - это если нашли.
т.е.
если x определился
или иначе
если не (x не определился) то
потому что иначе будет ошибка, если find ничего не найдёт.

[Костян Пират]

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

2.есть: range.End

а пример использования можно?

[Hugo121]

Sub tt()
Dim ra As Range
Set ra = Range([A1], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp)))
ra.Select
End Sub

[nerv]

\и чтобы окончательно запутать пользователя он прибег к следующему синтаксису : )

Sub io()
On Error Resume Next
Columns(1).Find(ActiveCell.Value).Item(0).EntireRow.Delete
End Sub