Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставка 2-ух пустых строк, при условии, что ячейка содержит данные
 
#1
12.01.2019 13:38:09
Добрый день! Нужно вставить 2 пустые строки, только перед ячейками с данными, в столбце "A" Нужен цикл, поскольку строк много
Прошу помочь с решением. Заранее благодарен
Изменено: schulmin - 12.01.2019 13:38:56
 
 
 
#2
12.01.2019 14:01:48
См. вариант.
 
 
 
#3
12.01.2019 14:05:28
Юрий, благодарю! Все отлично
 
 
 
#4
12.01.2019 14:17:55
Юрий М, не смотрел ваш файл, но уж поскольку трудился - мой вариант
Код
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
 
 
 
#5
12.01.2019 14:37:01
После ячеек с данными по столбцу "А":
Код
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).
 
 
 
#6
12.01.2019 15:02:19
Михаил С., Спасибо большое
 
 
 
Страницы: 1
Наверх