Есть код который удаляет текст по условию из столбца А, но нужно чтобы удалялся весь текст который не подходит условию. Не знаю пробовал изменить, но не получается
Код |
---|
Dim ra As Range, delra As Range Application.ScreenUpdating = False Удалить = Array("Астрахань*", "Волгоград*", "Рязань_*", "Саранск_*", "Итого*") For Each ra In ActiveSheet.UsedRange.Rows For Each word In Удалить If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra) End If Next word Next If Not delra Is Nothing Then delra.EntireRow.Delete |