Страницы: 1
RSS
Добавление дополнительных строк
 
Все доброго времени суток. Не знаю, как автоматизировать небольшой, но очень полезный для меня процесс)
Для наглядности приведу и скрины
Суть проблемы:
есть строки
строка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]
Изменено: shishkins - 05.05.2015 14:47:26
 
Можно как-то так (выделяете столбец со строками, запускаете макрос):
Код
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
Изменено: anyarceva - 29.04.2015 15:59:47
 
Большое спасибо!
Страницы: 1
Наверх