Все доброго времени суток. Не знаю, как автоматизировать небольшой, но очень полезный для меня процесс) Для наглядности приведу и скрины Суть проблемы: есть строки строка1 строка2 строка3 нужно между строкой с текстом добавить две пустые строки Господа знатоки, подскажите, как быть) [img]file:///D:/Dropbox/Dropbox/%D0%A1%D0%BA%D1%80%D0%B8%D0%BD%D1%88%D0%BE%D1%82%D1%8B/1.jpg[/img]
Можно как-то так (выделяете столбец со строками, запускаете макрос):
Код
Sub shishkins()
Dim intI As Integer
If Selection.Columns.Count > 1 Then
MsgBox "В выделении не должно быть более 1 столбца"
Exit Sub
End If
For intI = Selection.Item(1).Row + Selection.Rows.Count - 1 To Selection.Item(1).Row Step -1
Rows(intI + 1 & ":" & intI + 2).Insert Shift:=xlDown
Next intI
End Sub
Вот быстро набросала (если ваши данные начинаются в столбце A):
Код
Sub InsertTwoRows()
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For s = lrow To 2 Step -1
If IsEmpty(Range("A" & s)) = False Then
Range("A" & s).Insert Shift:=xlDown
Range("A" & s).Insert Shift:=xlDown
End If
Next s
End Sub