Зміст
Наступна підпрограма видалить кожен рядок у діапазоні, де значення у стовпці А починається із заданого фрагменту тексту:
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text As String)Dim Row_Counter як ціле числоДля Row_Counter = Data_range.Rows.Count To 1 Step -1Якщо Data_range - це нічого, тодіВийти з підпЗакінчити ЯкщоЯкщо UCase (ліворуч (діапазон_даних.Cells (рядок_лічильник, 1). Значення, Len (текст))) = UCase (текст) ТодіДані_діапазон. Клітинки (Лічильник_рядків, 1)Закінчити ЯкщоДалі Row_CounterEnd Sub |
Наприклад, Delete_Rows (Аркуші («Аркуш1»). Діапазон («A1: E23», «Собака») видалить усі рядки в діапазоні A1: E23, де значення у стовпці A починається зі слова «Собака». Зверніть увагу: використання Ucase означає, що формули є нечутливими, тобто клітини, які починаються з будь -якого з DOG, Dog, DoG або dog, будуть видалені.
Це:
Стане:
