Страницы: 1
RSS
Удаление строк после ячейки с определенными данными
 
Всем здравствуйте, подскажите, пожалуйста как макросом удалить 10 пустых строк, после строки в которой в ячейке А1 есть значение "Всего"?
 
Цитата
как макросом удалить 10 пустых строк, после строки
Код
Sub DelAfterWsego()
Dim FoundWsego As Range
    Set FoundWsego = Columns("A").Find("Всего", , xlValues, xlWhole)
    If Not FoundWsego Is Nothing Then
      Rows(FoundWsego.Row + 1 & ":" & FoundWsego.Row + 10).Delete
    End If
    Range("A1").Select
End Sub
 
Kuzmich, спасибо Вам огромное. Все отлично работает.
Страницы: 1
Наверх