Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 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
Читают тему (гостей: 1)
Наверх