Удалить не нужные строки в диапазоне

[valerij]

В примере, нужно найти одинаковые числа в ст. 3 и ст. 22, а все остальные строки удалить, причем строки, удалить в диапзоне А8:Т261.
Т. е. если число в А8, не нашлось в диапазона V8:V214, то строка А8:Т8, удалить: ячейки, со сдвигом вверх.

Окрашивать одноименные числа, получается(макрос zxc), а вот удалить??
Да, данные в ст. 22, не нужны, нужны тока данные в ст. 3, может так, проще будет.

[SAS888]

Можно, например, так:

Sub Main()
    Dim x As Range, i As Long: Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 3).End(xlUp).Row To 8 Step -1
        Set x = [V:V].Find(Cells(i, 3), LookAt:=xlWhole)
        If x Is Nothing Then Range(Cells(i, 1), Cells(i, 20)).Delete Shift:=xlUp
    Next
End Sub

Пример во вложении.

[valerij]

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

Можно, например, так:

Sub Main()
    Dim x As Range, i As Long: Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 3).End(xlUp).Row To 8 Step -1
        Set x = [V:V].Find(Cells(i, 3), LookAt:=xlWhole)
        If x Is Nothing Then Range(Cells(i, 1), Cells(i, 20)).Delete Shift:=xlUp
    Next
End Sub

Пример во вложении.

ОК!!!! Спасибо!!!!!
Сереж, но несколько вопросов.
1. Зачем Cells(Rows.Count, 3).End(xlUp).Row, если мона сразу 260?
2. Почему поиск с конца(260 до 8)?
3. Че делает LookAt:=xlWhole?

[doober]

Сообщение от valerij;

2. Почему поиск с конца(260 до 8)?

А Вы начните с 8 и до 260 ,сразу увидите пропуски.
При прямом проходе если например удалили 10 строку ,11 становится уже 10 и выпадает с проверки

[alex77755]

и выпадает с проверки

в принципе межно и сверху, добавив в строку:

...Delete Shift:=xlUp: i = i - 1

[valerij]

А третий пункт, кто нить объяснит?
3. Че делает LookAt:=xlWhole?

[EducatedFool]

Че делает LookAt:=xlWhole?

Ищет ТОЧНОЕ соответствие.
К примеру, если ищем значение 245, то будут найдены только ячейки, содержащие 245, а не ячейки со значениями типа 2456, 3245 и т.д.

[valerij]

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

Ищет ТОЧНОЕ соответствие.

Все, понял, СПАСИБО!!!!
---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)

[valerij]

Подскажите, i = Cells(Rows.Count, 3).End(xlUp).Row определят последнею не пустую ячейку в 3 столбце.
А как определить последнею не пустую ячейку, отличную от нуля?
Например, нужен адрес пятерки:

123
125
789
5
0
0
0

Или это выражение не катит?
Так, получилось

For i = Cells(Rows.Count, 3).End(xlUp).Row To 8 Step -1
        If Cells(i, 3) > 0 Then MsgBox i: Exit For
Next