Kazalo
Naslednja podprogram bo izbrisala vsako vrstico v obsegu, kjer se vrednost v stolpcu A začne s predpisanim delom besedila:
| 12345678910111213 | Sub Delete_Rows (Podatkovni obseg kot obseg, besedilo kot niz)Zatemni Row_Counter kot celo številoZa Row_Counter = Data_range.Rows.Count To 1 Step -1Če Data_range ni nič, potemZapri podKonec ČeČe je UCase (levo (Podatkovni obseg. Celice (Vrstica_števec, 1). Vrednost, Len (Besedilo))) = UCase (Besedilo) PotemPodatkovni obseg.Cells (Vrstica_številčnice, 1) .EntireRow.DeleteKonec ČeNaslednji Row_CounterEnd Sub |
Na primer Delete_Rows (Sheets (“Sheet1”). Range (“A1: E23”, “Dog”) bo izbrisal vse vrstice v obsegu A1: E23, kjer se vrednost v stolpcu A začne z besedo “Dog”. Upoštevajte: uporaba Ucase pomeni, da so formule v primeru ČUDNE, tj. celice, ki se začnejo s katerim koli od DOG, Dog, DoG ali dog, bodo izbrisane.
To:
Bo:
