Удаление строк по условию

@sashgera · Регистрация: 19.09.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте

Помогите с макросом, с помощью которого можно удалить все строки таблицы, кроме тех, в которых есть определенный текст, например - "не удалять"
Поиск определенного текста нужно по столбцу 'F' и с третьей строки

toiai · 27.07.2018, 16:53

Один из вариантов:

Visual Basic
1
2
3
4
5
6
7
Sub UdalenieIF()
    Dim rCol1 As Range, c As Range
    Set rCol1 = ActiveSheet.UsedRange.Columns("F")
    Set rCol1 = rCol1.Cells(3).Resize(rCol1.Cells.Count - 2)
    Set c = rCol1.Find("не удалять")
    If Not c Is Nothing Then ActiveSheet.Range(rCol1.Address).ColumnDifferences(c).EntireRow.Delete
End Sub

@sashgera · 27.07.2018, 17:25 **[ТС]**

toiai, большое спасибо!

@sashgera · 28.07.2018, 21:46 **[ТС]**

toiai, поможете еще с макросом?
Нужно удалить строки таблицы в которых есть текст - "удалить", а остальные строки оставить
Поиск текста по столбцу 'F' и с третьей строки

toiai · 29.07.2018, 08:21

В том же стиле с копией листа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub UdalenieIF1()
    Dim rCol1 As Range, c As Range, Sh As Worksheet, ShNew As Worksheet
    Set Sh = ActiveSheet
    Set rCol1 = Sh.UsedRange.Columns("F")
    Set rCol1 = rCol1.Cells(3).Resize(rCol1.Cells.Count - 2)
    Sh.Copy After:=Sheets(Sheets.Count)
    Set ShNew = ActiveSheet
    ShNew.Cells(3, 1).Resize(rCol1.Count).EntireRow.Delete
    Set c = rCol1.Find("удалить")
    If Not c Is Nothing Then Sh.Range(rCol1.Address).ColumnDifferences(c).EntireRow.Copy ShNew.Cells(3, 1)
End Sub

@sashgera · 29.07.2018, 11:55 **[ТС]**

toiai, я совсем плохо разбираюсь, а можно без копии листа. Спасибо.

@Hugo121 · 29.07.2018, 13:30

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

в которых есть текст - "удалить"

- задачу нужно ставить точнее. Ибо даже и вот это:

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

кроме тех, в которых есть определенный текст, например - "не удалять"

можно понимать по разному. У меня например код toiai отработал не совсем так, как задумывалось.
Т.к. например вот скажите - есть в ячейке с текстом "эту строку не удалять!" текст "не удалять"?
И ещё - если данных на листе не более пары тысяч строк, то можно не мудрить и просто пройтись циклом по листу (или массиву данных, что быстрее) и удалить строки по одной, разницы практически не будет от удаления сразу всех строк.
Только циклом нужно идти снизу вверх, если не хотите извращаться с счётчиком строк.

@fever brain · 29.07.2018, 18:54

можно найти ключевое слово *не удалять* во всех строчках
переместить в другой лист. затем удалить удоляемый лист а тот лист переименовать
если там не сильно тяжелый лист то сделать можно и проще ))

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@sashgera 6 / 6 / 5 Регистрация: 19.09.2011 Сообщений: 541
	27.07.2018, 17:25 [ТС]
	toiai, большое спасибо! 0

@sashgera 6 / 6 / 5 Регистрация: 19.09.2011 Сообщений: 541
	28.07.2018, 21:46 [ТС]
	toiai, поможете еще с макросом? Нужно удалить строки таблицы в которых есть текст - "удалить", а остальные строки оставить Поиск текста по столбцу 'F' и с третьей строки 0

@sashgera 6 / 6 / 5 Регистрация: 19.09.2011 Сообщений: 541
	29.07.2018, 11:55 [ТС]
	toiai, я совсем плохо разбираюсь, а можно без копии листа. Спасибо. 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	29.07.2018, 18:54
	можно найти ключевое слово не удалять во всех строчках переместить в другой лист. затем удалить удоляемый лист а тот лист переименовать если там не сильно тяжелый лист то сделать можно и проще )) 0