Obsah
Následující podprogram odstraní každý řádek v rozsahu, kde hodnota ve sloupci A začíná předepsaným textem:
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text As String)Dim Row_Counter jako celé čísloPro Row_Counter = Data_range.Rows.Count to 1 Step -1Pokud Data_range není nic, pakUkončit dílčíKonec IfIf UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) ThenData_range.Cells (Row_Counter, 1) .EntireRow.DeleteKonec IfDalší řádek_počítačEnd Sub |
Například Delete_Rows (Sheets (“Sheet1”). Range (“A1: E23”, “Dog”) will remove all the rows in the range A1: E23 where the value in Column A začíná with the word “Dog”. Všimněte si použití Ucase znamená, že vzorce jsou malá a velká písmena, tj. buňky začínající DOG, Dog, DoG nebo dog budou odstraněny.
Tento:
Bude:
