Tartalomjegyzék
A következő alprogram törli az összes olyan sort, ahol az A oszlop értéke egy előírt szöveggel kezdődik:
| 12345678910111213 | Sub Delete_Rows (Adattartomány tartományként, szöveg szövegként)Dim Row_Counter mint egészFor Row_Counter = Data_range.Rows.Count To 1 1. lépésHa a Data_range semmi, akkorKilépés a SubbólVége HaHa UCase (Left (Data_range.Cells (Row_Counter, 1). Value, Len (Text))) = UCase (Text) thenData_range.Cells (Sor_Counter, 1) .EntireRow.DeleteVége HaKövetkező sor_számlálóEnd Sub |
Például a Delete_Rows (Táblázatok („Sheet1”). A tartomány („A1: E23”, „Dog”) törli az A1: E23 tartomány összes sorát, ahol az A oszlop értéke a „Dog” szóval kezdődik. Az Ucase használata azt jelenti, hogy a képletek kis- és nagybetűsek, azaz a DOG, Dog, DoG vagy kutya bármelyikével kezdődő cellák törlődnek.
Ez:
Válik:
