Satura rādītājs
Šī apakšprogramma izdzēsīs katru rindu diapazonā, kur A slejas vērtība sākas ar noteikto teksta daļu:
| 12345678910111213 | Sub Delete_Rows (datu diapazons kā diapazons, teksts kā virkne)Dim Row_Counter kā vesels skaitlisRindas_skaitītājs = datu_diapazons.rindas.Skaitīt līdz 1. darbībai -1Ja datu_diapazons nav nekasIziet no apakšnodaļasBeigas JaJa UCase (Left (Data_range.Cells (Row_Counter, 1). Value, Len (Text))) = UCase (Text)Data_range.Cells (Rindas_skaitītājs, 1) .EntireRow.DeleteBeigas JaNākamā rinda_skaitītājsBeigu apakš |
Piemēram, Delete_Rows (Sheets (“Sheet1”). Diapazons (“A1: E23”, “Dog”) izdzēsīs visas rindas diapazonā A1: E23, kur A slejas vērtība sākas ar vārdu “Dog”. Ucase lietošana nozīmē, ka formulas ir nejutīgas, ti, šūnas, kas sākas ar jebkuru no SUNS, Suns, DoG vai suns, tiks dzēstas.
Šis:
Kļūs:
