Очень удобный макрос, иногда бывает полезен. Удаляет четные или нечетные строки в экселе

Public Sub qwe() 
Dim i As Integer 
For i = 320 To 1 Step -1 'вместо 320 последнюю строку Вашей таблицы. 
If i Mod 2 = 0 Then '0 - Для четных. Для нечетных 1 
Rows(i).Delete 
End If 
Next 
End Sub

Макрос вставляется в VBA, если в экселе нет панели Разработчика - открывается в настройках