Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 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]
1.png (18.82 КБ)
2.png (1.89 КБ)
Изменено: shishkins - 5 Май 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 Апр 2015 15:59:47
 
Большое спасибо!
Страницы: 1
Читают тему (гостей: 1)