Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Вставка 2-ух пустых строк, при условии, что ячейка содержит данные
 
Добрый день! Нужно вставить 2 пустые строки, только перед ячейками с данными, в столбце "A" Нужен цикл, поскольку строк много
Прошу помочь с решением. Заранее благодарен
Изменено: schulmin - 12 Янв 2019 13:38:56
 
См. вариант.
 
Юрий, благодарю! Все отлично
 
Юрий М, не смотрел ваш файл, но уж поскольку трудился - мой вариант
Код
Sub RowsInsert()
    Dim Cel As Range
    Set Cel = Cells(Rows.Count, 1)
    Do
        Set Cel = Cel.End(xlUp)
        If Cel.Row = 1 Then Exit Do
        Cel.Resize(2).EntireRow.Insert
    Loop
End Sub
 
После ячеек с данными по столбцу "А":
Код
Sub qqq()
Dim r&
r = 1
With ActiveSheet
  Do While r <= .UsedRange.Rows.Count
    If Len(.Cells(r, 1)) > 0 Then .Rows(r + 1 & ":" & r + 2).Insert: r = r + 2
    r = r + 1
  Loop
End With
End Sub
Чтобы было перед, нужно  rows(r & ":" & r+1).
 
Михаил С., Спасибо большое
Страницы: 1
Читают тему (гостей: 2)
Наверх