Spisie treści
Poniższy podprogram usunie każdy wiersz w zakresie, w którym wartość w kolumnie A zaczyna się od określonego fragmentu tekstu:
| 12345678910111213 | Sub Delete_Rows (zakres_danych jako zakres, tekst jako ciąg)Dim Row_Counter jako liczba całkowitaDla Licznik_rzędów = Zakres_danych.Row.Liczba do 1 Krok -1Jeśli zakres_danych jest niczym, toWyjście SubZakończ, jeśliJeśli UCase(Left(Data_range.Cells(Row_Counter, 1)).Value, Len(Text))) = UCase(Text) ThenZakres_danych.Komórki(Licznik_wierszy, 1).Cały wiersz.UsuńZakończ, jeśliNastępny wiersz_LicznikNapis końcowy |
Na przykład Delete_Rows(Sheets(„Sheet1”).Range(„A1:E23”,”Dog”) usunie wszystkie wiersze z zakresu A1:E23, gdzie wartość w kolumnie A zaczyna się od słowa „Pies”. użycie Ucase oznacza, że formuły są NIEWRAŻLIWE na wielkość liter, tzn. komórki, które zaczynają się od dowolnego z PSA, PSA, PSA lub psa, zostaną usunięte.
Ten:
Stanie się:
