Страницы: 1
RSS
Вставить определенное количество строк по значению в столбце
 
Собственно проблема: есть массив данных в котором необходимо вставить пустые строки.
Количество пустых строк обусловлено значениями в определённом столбце.  
 
выполните этот макрос
Код
Sub InsBRows()
  Dim r&:  r = 2
  Do While Not IsEmpty(Cells(r, 2))
    Cells(r + 1, 1).Resize(Cells(r, 2), 1).EntireRow.Insert: r = r + 1 + Cells(r, 2)
  Loop
End Sub
при активном листе с данными
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Покорнейше благодарю!
Попрошу только ещё уточнить, где в коде макроса указан номер столбца?  
 
везде где написано Cells(что-то тут, 2) - 2 это как раз и есть № столбца (А - первый, В - второй, С - третий и т.д.)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх