Sisällysluettelo
Seuraava aliohjelma poistaa jokaisen rivin alueelta, jossa sarakkeen A arvo alkaa määrätyllä tekstillä:
| 12345678910111213 | Sub Delete_Rows (Data_range as Range, Text as String)Dim Row_Counter kokonaislukunaRivi_laskuri = Data_alue.Rows.Count To 1 Step -1Jos Data_range ei ole mitään sittenLopeta SubLoppu JosIf UCase (Left (Data_range.Cells (Row_Counter, 1). Value, Len (Text))) = UCase (Text) SittenData_alue.Cells (Rivi_laskuri, 1) .Koko rivi.DeleteLoppu JosSeuraava rivi_laskuriEnd Sub |
Esimerkiksi Delete_Rows (Sheets ("Sheet1"). Alue ("A1: E23", "Dog") poistaa kaikki rivit alueelta A1: E23, jossa sarakkeen A arvo alkaa sanalla "Dog". Ucase -käyttö tarkoittaa sitä, että kaavat ovat kirjainkokoisia eli herkkiä eli solut, jotka alkavat mistä tahansa koirasta, koirasta, koirasta tai koirasta, poistetaan.
Tämä:
Tulee:
