Innholdsfortegnelse
Følgende delprogram vil slette hver rad i et område der verdien i kolonne A begynner med et foreskrevet stykke tekst:
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text As String)Dim Row_Counter som heltallFor Row_Counter = Data_range.Rows.Count til 1 trinn -1Hvis Data_range ikke er noe daAvslutt SubSlutt omHvis UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) ThenData_range.Cells (Row_Counter, 1) .EntireRow.DeleteSlutt omNeste rad_tellerSlutt Sub |
For eksempel Delete_Rows (Sheets ("Sheet1"). Range ("A1: E23", "Dog") vil slette alle radene i området A1: E23 hvor verdien i kolonne A begynner med ordet "Dog". Legg merke til bruk av Ucase betyr at formlene er små bokstaver, dvs. celler som begynner med en hvilken som helst HUND, hund, hund eller hund vil alle bli slettet.
Dette:
Vil bli:
