Cuprins
Următorul subrutină va șterge fiecare rând dintr-un interval în care valoarea din coloana A începe cu o bucată de text prescrisă:
| 12345678910111213 | Sub Delete_Rows (Interval_date ca interval, text ca șir)Dim Row_Counter Ca întregPentru Row_Counter = Data_range.Rows.Count To 1 Step -1Dacă intervalul de date nu este nimic atunciIeșiți din SubEnd IfIf UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) AtunciData_range.Cells (Row_Counter, 1) .EntireRow.DeleteEnd IfUrmătorul Row_CounterSfârșitul Sub |
De exemplu Delete_Rows (Foi („Sheet1”)). Range („A1: E23”, „Dog”) va șterge toate rândurile din intervalul A1: E23 unde valoarea din coloana A începe cu cuvântul „Dog”. utilizarea Ucase înseamnă că formulele sunt INSENSIBILE la majuscule, adică celulele care încep cu oricare dintre DOG, Dog, DoG sau dog vor fi șterse.
Acest:
Va deveni:
