как в excel удалить каждую вторую строку

Ответ от Ormandiore[гуру]
написать макрос, например такой: Sub Макрос1() ActiveCell.Select Selection.EntireRow.Delete For i = 1 To 1000 ActiveCell.Offset(5, 0).Range("A1").Select Selection.EntireRow.Delete Next End Sub выделяем ячейку в первой из удаляемых строк и запускаем макрос. конечное значение в цикле зависит от размера таблицы. в данном случае максимум 6000 строк