Inhoudsopgave
De volgende subroutine verwijdert elke rij in een bereik waar de waarde in kolom A begint met een voorgeschreven stuk tekst:
| 12345678910111213 | Sub Delete_Rows (Data_range als bereik, tekst als string)Dim Row_Counter als geheel getalVoor Row_Counter = Data_range.Rows.Count To 1 Step -1Als Data_range niets is, danSluit subStop alsAls UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) DanData_range.Cells(Rij_Teller, 1).VolledigeRij.VerwijderenStop alsVolgende rij_tellerEinde sub |
Delete_Rows(Sheets("Sheet1").Range("A1:E23","Dog") verwijdert bijvoorbeeld alle rijen in het bereik A1:E23 waar de waarde in kolom A begint met het woord "Dog". Let op de het gebruik van Ucase betekent dat de formules hoofdletters INSENSITIEF zijn, dwz cellen die beginnen met een van HOND, Hond, DoG of hond worden allemaal verwijderd.
Dit:
Zal worden:
