Нахождение и удаление

[KnightLOU]

Здравствуйте дорогие форумчане! Нуждаюсь в помощи по написанию макроса который позволил бы найти вхождения столбца B в столбце A и непосредственно удалить такие строки, затем полностью удалить столбец B

Имеется вот такая вот информация в таблице
Безымянный1.png
Результат:
Безымянный2.png

[Казанский]

Решение Вам тоже в виде скриншота?
Все делается с помощью расширенного фильтра.

[KnightLOU]

Прошу прощения, я видимо неправильно сформулировал свою мысль.
Так как я далеко не знаток в VBA я прошу помочь мне тем, что бы выложить к примеру макрос который выполнял бы схожие с моей задачей действия.
Совсем забыл прикрепить файл. Архив WinRAR.rar

[Казанский]

Пробуйте. Из рисунка следует, что надо "найти вхождения столбца Е в столбце В и непосредственно удалить такие строки, затем полностью удалить столбец Е"

Sub bb()
[E1] = [B1]
Range("B1").CurrentRegion.AdvancedFilter xlFilterInPlace, [E1].CurrentRegion
Range("A2", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Columns("E").Delete
ActiveSheet.ShowAllData
End Sub

[KnightLOU]

Казанский, Большое вам человеческое спасибо, все работает как нужно В остальном разберусь сам.