Obsah
Nasledujúci podprogram vymaže každý riadok v rozsahu, kde hodnota v stĺpci A začína predpísaným textom:
| 12345678910111213 | Sub Delete_Rows (Data_range As Range, Text as String)Dim Row_Counter ako celé čísloPre Row_Counter = Data_range.Rows.Count to 1 Step -1Ak údajový_rozsah nie je nič, potomUkončiť subKoniec AkAk UCase (vľavo (Data_range.Cells (Row_Counter, 1). Hodnota, Len (text))) = UCase (text) PotomData_range.Cells (Row_Counter, 1) .EntireRow.DeleteKoniec AkNasledujúci riadok_počítačKoniec pod |
Napríklad Delete_Rows (Sheets („Sheet1“). Range („A1: E23“, „Dog“) vymaže všetky riadky v rozsahu A1: E23, kde hodnota v stĺpci A začína slovom „pes“. Všimnite si použitie Ucase znamená, že vzorce sú malé a veľké, tj bunky, ktoré začínajú ktorýmkoľvek z DOG, Dog, DoG alebo dog, budú odstránené.
Toto:
Bude:
