Страницы: 1
RSS
Вставка строк при смене значения в выделенном диапазоне, VBA
 
Всем доброго времени суток.

У меня есть макрос (нашел на форуме) который позволяет вставить пустую строку при смене значения в выделенном диапазоне.
А где в нем можно дописать чтобы он вставлял не одну строку, а указанное количество?

Код
Sub InsertRow()
Dim i As Long, rCell As Range
    For Each rCell In Selection
        If rCell <> "" Then
            If rCell.Offset(1, 0) <> rCell Then rCell.Offset(1, 0).EntireRow.Insert
        End If
    Next
End Sub

 
Код
Sub InsertRow()
Dim i As Long, rCell As Range, Counter As Long

    Counter = 3 '<<-- ВОТ ТУТ УКАЗЫВАЕТСЯ

    For Each rCell In Selection
        If rCell <> "" Then
            If rCell.Offset(1, 0) <> rCell Then
                For i = 1 To Counter
                    rCell.Offset(1, 0).EntireRow.Insert
                Next i
            End If
        End If
    Next
End Sub
Изменено: New - 23.10.2020 18:14:51
 
Спасибо!!!
Страницы: 1
Наверх