Sadržaj
Sljedeća potprogram izbrisat će svaki redak u rasponu gdje vrijednost u stupcu A počinje propisanim dijelom teksta:
| 12345678910111213 | Podizbriši_rede (raspon podataka kao raspon, tekst kao niz)Dim Row_Counter kao cijeli brojZa Row_Counter = Data_range.Rows.Count To 1 Step -1Ako Data_range nije ništa ondaIzlaz iz podvZavrši akoAko je UCase (lijevo (Podatkovni raspon. Ćelije (Brojač_redova, 1). Vrijednost, Len (Tekst))) = UCase (Tekst) TadaPodatkovni raspon.Čelije (Brojilo_redova, 1). Cijeli red.BrisanjeZavrši akoSljedeći red_brojačKraj podm |
Na primjer Delete_Rows (Sheets (“Sheet1”). Range (“A1: E23”, “Dog”) će izbrisati sve retke u rasponu A1: E23 gdje vrijednost u stupcu A počinje riječju “Pas”. Imajte na umu da upotreba Ucase znači da su formule SLUČAJNE, tj. ćelije koje počinju s bilo kojim od DOG, Dog, DoG ili pas biti izbrisane.
Ovaj:
Postati:
