Jei rimtai ieškote VBA kodo, kuris jums padėtų ištrinti visas eilutes pagal konkretų tekstą, esantį tam tikrame stulpelyje, tada šis straipsnis skirtas jums. Šiame straipsnyje mes sužinosime, kaip ištrinti eilutę, jei konkretus tekstas randamas stulpelyje.
Klausimas): Turiu failą, kuriame man reikia tų eilučių, kurių B stulpelyje yra „Produktas B“. Noriu ištrinti visa kita. Ar kas nors gali man padėti parašyti makrokomandą? Toliau pateikiamas mūsų turimų duomenų momentinis vaizdas: 
Turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
Į standartinį modulį įveskite šį kodą:
Sub DeleteRow ()
Su Sheet1.Cells (1) .CurrentRegion.Columns (2)
. 1 automatinis filtras, "Produktas B"
.EttireRow.Delete
Pabaiga su
Pabaiga Sub
Kodo paaiškinimas:
1 veiksmas) Aukščiau pateiktas kodas iš 2 stulpelio, ty produkto stulpelio, pasirinks dabartinį regioną
2 veiksmas) Taikykite filtrą
3 veiksmas) Matomos ląstelės bus ištrintos su visa eilute. Ištrinti kodą. Likę duomenys, t. Y. Ten, kur B stulpelyje yra B produktas, bus mūsų išvestis.
Tokiu būdu, naudodami VBA kodą, galime ištrinti eilutes, atitinkančias konkrečias sąlygas.
Atsisiųsti - ištrinti eilutes pagal sąlygas - xlsm