Excel – как добавлять пустые ячейки?
Есть шаблон страницы в экселе, куда добавляются данные. В первом столбце данные идет с инкрементом, но между инкрементами могут быть «дубли», то есть
1
2
2
2
3
3
4
5
и т.д.
Как сделать так, чтобы автоматически добавлялась пустая строка перед каждым началом инкремента, то есть сделать вот такой вид
Ответы (1 шт):
Автор решения: Tilek Samiev
→ Ссылка
Вот макрос, который выполняет задачу:
Sub addRows()
Dim i As Long, l As Long
Application.ScreenUpdating = 0
l = Cells(Rows.Count, 1).End(xlUp).Row
For i = l To 1 Step -1
If Cells(i + 1, 1) > Cells(i, 1) Then
Cells(i + 1, 1).Rows.Resize(1).Insert
End If
Next i
Application.ScreenUpdating = 1
End Sub
Воспользовался примером отсюда: