Съдържание
Следващата подпрограма ще изтрие всеки ред в диапазон, където стойността в колона А започва с предписан текст:
| 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 не е нищо, тогаваИзход от SubКрай АкоАко UCase (вляво (диапазон_данни.Клетки (ред_счетчик, 1). Стойност, Len (текст))) = UCase (текст) ТогаваДанни_диапазон. Клетки (Row_Counter, 1) .EntireRow.DeleteКрай АкоСледващ Row_CounterEnd Sub |
Например Delete_Rows (Sheets (“Sheet1”). Range (“A1: E23”, “Dog”) ще изтрие всички редове в диапазона A1: E23, където стойността в колона А започва с думата “Dog”. Обърнете внимание на използването на Ucase означава, че формулите са НЕЧУВСТВИТЕЛНИ, т.е. клетките, които започват с някое от DOG, Dog, DoG или dog ще бъдат изтрити.
Това:
Ще стане:
