Недавно понадобилось удалить все нечетные строки в Excel. Быстренько был сделан следующий микро макрос:

i = 1
While Not Cells(i, 1) = “”
Rows(i).Delete
i = i + 1
Wend

Для удаления четных в начале для i достаточно задать начальное значение равное 2. В итоге несколько тысяч строк были удалены за несколько секунд.

Digg del.icio.us toodoo.ru Закладки Google МойКруг МоёМесто Яндекс.Закладки bobrdobr.ru Memori.ru mister-wong.ru Новости 2.0 Furl Technorati
Теги: ,