удалить совпадения

[Михаил2261]

Здрваствуйте
Подскажите как в числовых строках в вертикальных столбцах
Удалить строки по условию:
Есть массив чисел
4 14 15 20 36
7 9 18 28 38
12 16 23 26 39
22 26 31 38 40
14 16 17 38 41
2 22 32 33 38
7 16 18 26 31
14 23 33 38 40
1 5 16 23 24
7 8 17 24 27
6 16 21 28 41

A B C D E –столбцы в екселе
Ввести условие: допустим в для столбца С
18
33
Строки:
7 16 18 26 31
14 23 33 38 40

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

[Serge_Bliznykov]

Это можно сделать макросом.

Только поконкретнее, пожалуйста..
Какие строчки из вашего примера должны быть удалены?
прямо на примере красным выделите те, которые должны быть удалены. (и лучше, если вы пример вставите с кодом [сode]..[/code] (как в моём пример ниже)
Все, где есть дубликаты (повторы в столбце С) ?
Обе строки с дубликатами?
А строчки

14	16	17	38	41
...
7	8	17	24	27

тоже должны быть удалены?

[Михаил2261]

В моем примере должны быть удалены строчки
Строки:
7 16 18 26 31
14 23 33 38 40
т.к. в них есть два числа в одном столбце которые мы ввели в условиях
18
33
строки
14 16 17 38 41
...
7 8 17 24 27
останутся там нет такого сочетания чисел в одном столбце
спасибо

[Serge_Bliznykov]

хм, видимо задача слишком сложна для меня...

Вы вводите числа. Нужно удалить все строки, где есть введённые числа?!
Тогда почему не удаляется строчка:

7	9	18	28	38

ведь в третьем столбце есть введённое число 18 ?!

[аналитика]

удаляется пара соседних строк с вхождением 18, 33 (можно менять) в столбце "С" - так я понял...
но у тебя этого нет

Sub Макрос()
   Dim a1, a2
   Dim c As Range, r As Range

   a1 = Val(InputBox("1-ое число", , 18))
   a2 = Val(InputBox("2-ое число", , 33))

   For Each c In Range("C1:C31")
      If c = a1 And c.Offset(1, 0) = a2 Then
         If r Is Nothing Then
            Set r = Union(c, c.Offset(1, 0))
         Else
            Set r = Union(c, c.Offset(1, 0), r)
         End If
      End If
   Next c

   r.EntireRow.Delete
End Sub

[Serge_Bliznykov]

ага. Эврика!
аналитика, спасибо, Вы меня натолкнули на мысль.

мне кажется, я понял, что надо TC!!

ему нужно удалить пару строчек, где первое число совпадает с числом в столбце C и второе число, совпадает с числом в столбце C, расположенным ниже!

аналитика, Браво! Ваш код именно эту задачу и решает.
Единственное, я бы удаление переписал так:

   If r Is Nothing Then
     MsgBox "Таких строк не найдено!"
   Else
     r.EntireRow.Delete
   End If

[аналитика]

согласен