Как удалить строки в excel через одну?

Вариант №1 (более простой)

• Добавляете в конце таблицы еще один столбец. (D см рис) В первую строку этого столбца (ту, которую вы не хотите удалять) ставите значение "1". Значение для второй строки этого же столбца - оставляете пустой.
• Выделяете две клетки в этом столбце (D2:D3 см рис.) (первую и вторую, с значением 1 и пусто.), копируете их значение (Ctrl+C).
• Выделяете все клетки этого столбца, после второй (третью и все вниз, D4:D13 на рис.). Вставляете скопированное значение (Ctrl+V). Вы должны получить примерно следующее:
• Выделяем всю таблицу, выбираем из меню: Данные - Фильтр - Автофильтр
• Во временном столбце, из списка предложений для фильтрации, выбираем "Пустые"
• Выделяем все строки в отфильтрованной таблице (зажав мишку на номере первой и протянув до конца), и удаляем их: (ЛКМ по номерам выделенных строк и пункт меню "Удалить строку")
• Во временном столбце, из списка предложений для фильтрации, выбираем "Все" и получаем необходимый результат.

Вариант №2 (для опытных)

Открываете редактор Visual Basic. (Alt + F11) или из меню Сервис-Макрос-Редактор Visual Basic.

• В окне редактора в секции VBAProject дважды щелкаете по обьекту : Эта Книга (см рисунок)
• В появившемся окне вставляем текст процедуры :

Sub DelRowAfterOne()

Dim ra As Range, delra As Range, cntdel As Integer

Application.ScreenUpdating = False

cntdel = 0

For Each ra In ActiveSheet.UsedRange.Rows

If cntdel <> 0 Then

ra.EntireRow.Delete

End If

If cntdel = 2 Then cntdel = 0

cntdel = cntdel + 1

Next

End Sub

• сохраняем текст процедуры, нажав на дискетку.
• Переключаемся в Excel (в ваш открытый документ). Добавляем пользовательскую кнопку на панель инструментов для вызова процедуры.
• На любой панели инструментов нажимаем левую кнопку мыши (далее ЛКМ), в появившемся меню выбираем "Настройка"
• В окне диалогоа настроек Панели инструментов выбираем вкладку "Команды", из списка групп команд выбираем "Макросы", далее, выбираем команду "Настраиваемая кнопка" и удерживая ее мышкой (зажав на ней правую кл. мышки) тянем этот пункт в любое место панели инструментов
• Не закрывая окна "Настройка", нажимаем ЛКМ на той кнопке в панели инструментов, которую мы создали в предыдущем пункте. В появившемся меню выбираем команду "Назначить макрос"
• В появившемся окне выбираем нашу процедуру DelRowAfterOne(), нажимаем ОК. Закрываем все окна. В результате в панели задач у вас должна быть кнопка со смайликом, которая вызывает процедуру удаления строк.
• Работа данной процедуры проста: Вы выделяете в вашей таблице тот диапазон строк, в котором хотите удалить строки через одну, далее нажимаете кнопку со смайликом и получаете результат.