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

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

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


Теги: ,