Главная > Программы > Excel > Макрос добавления пустых строк через одну
 
 
 
 

Макрос добавления пустых строк через одну

Sub InsertRows()
Dim i As Long, nRow As Long
Dim k As Integer, x As Integer
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
nRow = Cells(Rows.Count, "A").End(xlUp).Row
k = InputBox("Введите количество строк для вставки между строками", , 1)
x = InputBox("Введите шаг вставки строк", , 1)
For i = nRow To 2 Step -x
Cells(i, 1).Resize(k).EntireRow.Insert
Next i
Cells(ActiveCell.Row, 1).Resize(k).EntireRow.Insert
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
MsgBox "Строки добавлены!", vbInformation, "Вставка строк"
End Sub

Оригинал

 
Почтовая форма Карта сайта Главная
FoxPro 2.6, сайтостроение – Запорожская социальная сеть
maxim.zp.ua - Запорожская социальная сеть
bigmir)net TOP 100 Яндекс.Метрика