Удалить строку, включающую строго заданное слово

RSS

Удалить строку, включающую строго заданное слово, Написать макрос, который удалит строку целиком, если в ней будет найдено строго заданное слово

yozz

Пользователь

Сообщений: 3 Регистрация: 02.12.2025

02.12.2025 18:59:12

Всем доброго времени суток!

Подскажите, пожалуйста, с таким вопросом

Есть прайс-лист с автотоварами.
Из данного прайса нужно удалить все строки, которые содержат слово "масло"
Очень важно, чтобы удалялись только те строки, которые содержат строго слово "масло", а не "маслосъемные колпачки", "маслоотделитель" и т.п.

К примеру, из позиций на скриншоте ниже нужно удалить строки с 3926 по 3935, остальные не трогать.

Буду благодарен за любую помощь и подсказки!

Старичок

Пользователь

Сообщений: 224 Регистрация: 16.08.2025

02.12.2025 19:49:49

Цитата
написал: из позиций на скриншоте ниже нужно удалить строки

Ну если на скриншоте, то можно в фотошопе. А так, согласно правилам форума, нужен пример в формате эксель (весь не требуется, достаточно пары десятков строк)

Изменено: Старичок - 02.12.2025 19:51:29

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 15891 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

02.12.2025 20:08:42

Цитата
yozz написал: те строки, которые содержат строго слово "масло"

если на скрин опираться - достаточно в фильтре забить Содержит -"масло ". Пробел на конце слова обязателен.
Ну а если не подходит - то см.сообщение от Старичок.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

yozz

Пользователь

Сообщений: 3 Регистрация: 02.12.2025

03.12.2025 10:35:29

Цитата
если на скрин опираться - достаточно в фильтре забить Содержит -"масло ". Пробел на конце слова обязателен.

Кстати, я об этом и не подумал, спасибо!
Сам файл во вложении

Прикрепленные файлы

example.xlsx (10.17 КБ)

Бахтиёр

Пользователь

Сообщений: 2381 Регистрация: 15.01.2016

Excel 365

03.12.2025 10:56:31

Код

Sub dddd()
Set xRng = Range("A1").CurrentRegion
mas = xRng.Value
rr = UBound(mas)
cc = UBound(mas, 2)
ReDim mas2(1 To rr, 1 To cc)
For i = 1 To rr
    If InStr(1, mas(i, 3), "масло ", vbTextCompare) = 0 Then
        n = n + 1
        For k = 1 To cc
            mas2(n, k) = mas(i, k)
        Next
    End If
Next
xRng.Value = mas2
End Sub

Изменено: Бахтиёр - 03.12.2025 10:58:22

yozz Пользователь Сообщений: 3 Регистрация: 02.12.2025	#6 03.12.2025 13:02:22 Спасибо, работает!

Читают тему