удаление строки при условии

[horpenst]

Знающие люди, помогите написать формулы для решения следующих задач:

1. имеется строка со значениями a1:a10.
необходимо удалить эту строку, если все значения в ней равны 0

2. имеется массив со значениями a1:n10
необходимо вставить по три пустых строки между каждой строкой со
значениями.

[Serge_Bliznykov]

1) задачи явно учебные. Вы сами что-то делать собираетесь?

2)

написать формулы

я Вас расстрою. Но формулами нельзя решить ни первую, ни вторую задачу! Только макросами!

[horpenst]

для первой задачи я уже нашел решение, автофильтром.

напишите, кому не трудно макрос для второй

[SAS888]

...необходимо вставить по три пустых строки между каждой строкой со
значениями.

А если там уже есть пара пустых строк, тогда что делать?

[horpenst]

между строками нет пустых строк

[SAS888]

Например, так:

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row * 4 Step 4
        Rows(i & ":" & i + 2).Insert
    Next
End Sub

[horpenst]

Спасибо огромнейшее!
работает.