Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Автоматическое создание строк для равного количества между значениями
 
Как можно сделать автоматическое создание строк для того, чтобы  было равное количество строк между значениями в одном столбце? Пример представлен ниже
 
Код
Sub InsRows()
  Dim r&, m&, rg As Range
  Set rg = Cells(Rows.Count, 3).End(xlUp).Offset(1, -1)
  Do While rg.Row > 1
    r = rg.Row - rg.End(xlUp).Row: If r > m Then m = r
    Set rg = rg.End(xlUp)
  Loop
  Set rg = Cells(Rows.Count, 3).End(xlUp).Offset(1, -1)
  Do While rg.Row > 1
    r = rg.Row - rg.End(xlUp).Row: If r < m Then rg.EntireRow.Resize(m - r).Insert
    Set rg = rg.End(xlUp)
  Loop
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Спасибо! 2 дня голову над этим ломал, оказывается все очень компактно)))
Страницы: 1
Читают тему (гостей: 1)
Наверх