Преглед садржаја
Следећа потпрограм ће избрисати сваки ред у опсегу где вредност у колони А почиње прописаним делом текста:
| 12345678910111213 | Суб Делете_Ровс (Дата_ранге Ас Ранге, Тект Ас Стринг)Дим Ров_Цоунтер као цео бројЗа Ров_Цоунтер = Дата_ранге.Ровс.Цоунт То 1 Степ -1Ако Дата_ранге није ништа ондаЕкит СубКрај АкоАко је УЦасе (лево (опсег_Дата.Целлс (ред_број, 1). Вредност, Лен (текст))) = УЦасе (текст) ТадаДата_ранге.Целлс (Ров_Цоунтер, 1) .ЕнтиреРов.ДелетеКрај АкоСледећи Ров_ЦоунтерЕнд Суб |
На пример Делете_Ровс (Схеетс (“Схеет1”). Ранге (“А1: Е23”, “Дог”) ће избрисати све редове у опсегу А1: Е23 где вредност у колони А почиње речју “Пас”. Обратите пажњу на употреба Уцасе значи да су формуле СЛУЧАЈНЕ, тј. ћелије које почињу са било којим од ДОГ, Дог, ДоГ или дог ће бити избрисане.
Ово:
Постаће:
