Turinys
Ši paprograma ištrins kiekvieną eilutę diapazone, kuriame A stulpelio reikšmė prasideda nuo nustatytos teksto dalies:
| 12345678910111213 | Sub Delete_Rows (duomenų diapazonas kaip diapazonas, tekstas kaip eilutė)Dim Row_Counter kaip sveikasis skaičiusRow_Counter = Data_range.Rows.Count iki 1 1 veiksmasJei „Data_range“ yra niekasIšeiti iš SubPabaiga JeiJei UCase (kairė (Data_range.Cells (Row_Counter, 1). Value, Len (Text))) = UCase (Text)Data_range.Cells (Row_Counter, 1) .EntireRow.DeletePabaiga JeiKitas Row_CounterPabaiga Sub |
Pavyzdžiui, „Delete_Rows“ (skaičiuoklės („Sheet1“). Diapazonas („A1: E23“, „Dog“) ištrins visas A1: E23 diapazono eilutes, kur A stulpelio reikšmė prasideda žodžiu „Šuo“. „Ucase“ naudojimas reiškia, kad formulės yra nejautrios, ty ląstelės, prasidedančios bet kuriuo ŠUNIS, Šuo, DoG ar šuo, bus ištrintos.
Tai:
Taps:
