Indholdsfortegnelse
Følgende underprogram sletter hver række i et område, hvor værdien i kolonne A begynder med et foreskrevet stykke tekst:
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text As String)Dim Row_Counter som heltalFor Row_Counter = Data_range.Rows.Count til 1 trin -1Hvis Data_range ikke er nogetAfslut SubAfslut HvisHvis UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) ThenData_range.Cells (Row_Counter, 1) .EntireRow.DeleteAfslut HvisNæste Row_CounterAfslut Sub |
F.eks. Delete_Rows (Sheets ("Sheet1"). Range ("A1: E23", "Dog") sletter alle rækker i området A1: E23, hvor værdien i kolonne A begynder med ordet "Dog". Bemærk brug af Ucase betyder, at formlerne er store og små, dvs. celler, der begynder med en hvilken som helst HUND, hund, DoG eller hund, vil alle blive slettet.
Det her:
Vil blive:
