Содержание
Следующая подпрограмма удалит каждую строку в диапазоне, где значение в столбце A начинается с предписанного фрагмента текста:
| 12345678910111213 | Sub Delete_Rows (диапазон данных как диапазон, текст как строка)Dim Row_Counter As IntegerДля Row_Counter = Data_range.Rows.Count To 1 Step -1Если диапазон_данных - ничто, тогдаВыйти из подводной лодкиКонец, еслиЕсли UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text), тоДиапазон_данных.Cells (Row_Counter, 1) .EntireRow.DeleteКонец, еслиСледующий Row_CounterКонец подписки |
Например, Delete_Rows (Sheets («Sheet1»). Range («A1: E23», «Dog») удалит все строки в диапазоне A1: E23, где значение в столбце A начинается со слова «Dog». Обратите внимание на использование Ucase означает, что в формулах НЕ ЧУВСТВИТЕЛЬНО регистр, т.е. все ячейки, начинающиеся с любого из символов DOG, Dog, DoG или dog, будут удалены.
Этот:
Станет:
