Страницы: 1
RSS
Динамическое изменение строк
 
Здраствуйте форумчане.
не могу понять как справиться с задачкой

допустим есть список детей, которым нравится определенный цвет (лист1)
нужно на листе 2 вывести список по каждому пункту. Понимаю как найти и вывести этот список по критерию по отдельный столбцам (через впр или поискпоз). Но как это сделать по строкам не очень.

тоесть в зависимости от количества найденных позиций требуется добавить/удалить строку.

нужно для того, чтобы затем это можно было выводить на печать, так что столбцов много сделать не получится. Надеюсь понятно обьяснил. На скриншоте указал нужный результат
Скрытый текст
 
ec1ips, проверьте личку.
 
Код
Sub ColorCollections()
  Dim rg As Range, c&
  With Worksheets(Worksheets.Count)
    For c = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
      Cells(1, c).Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1)
      Range(Cells(2, c), Cells(Rows.Count, c)).SpecialCells(xlCellTypeConstants).Offset(0, 1 - c).Copy
      .Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
    Next
  End With
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх