Страницы: 1
RSS
Вставка следующей пустой строки
 
Здравствуйте. Записал макрорекордером вставку строки ниже. Как сделать если строка заполнена данными, выбиралась следующая пустая строка и вставлялась, а не всегда вторая[CODE][/CODE]
 
Nikolay_ptt, а какую в вашем случае выбирать? у вас две заполненных строки..первую или последнюю?
Не бойтесь совершенства. Вам его не достичь.
 
Код
Sub Ins_row()
    Dim r&
    r = Cells(Rows.Count, 1).End(xlUp).Row 'последняя заполненная ячейка в первом столбце
    Rows(r + 1).Insert Shift:=xlDown
End Sub
 
Mershik, последнюю, я там просто пробовал
 
_Igor_61, Большое спасибо, все работает!
 
Смысл вставлять пустые строки в пустые строки ?
 
Чтобы руками не тянуть - там в одном столбце выпадающий список :)  
Страницы: 1
Наверх