Innehållsförteckning
Följande underprogram kommer att radera varje rad i ett område där värdet i kolumn A börjar med en föreskriven textbit:
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text As String)Dim Row_Counter som heltalFör Row_Counter = Data_range.Rows.Count till 1 steg -1Om Data_Range är ingenting dåAvsluta SubAvsluta omIf UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) ThenData_range.Cells (Row_Counter, 1) .EntireRow.DeleteAvsluta omNästa rad_räknareAvsluta Sub |
Till exempel Delete_Rows (Sheets ("Sheet1"). Range ("A1: E23", "Dog") kommer att radera alla rader i intervallet A1: E23 där värdet i kolumn A börjar med ordet "Dog". användning av Ucase innebär att formlerna är skiftlöst okänsliga dvs celler som börjar med någon av HUND, hund, DoG eller hund kommer alla att raderas.
Detta:
Kommer att bli:
