Господа, подскажите пожауйста! При копировании информации с одного листа на другой методом специальной вставки значений и формата, возникает следующая проблема: как скопировать группы для диапазонов ячееек. К примеру, на одном листе создана группа для строк 5:6 и строк 10:20. При копировании информации на другой лист, необходимо, чтобы строки 5:6 и 10:20 также были сгруппированы?

Или можно эту задачу решить по другому. Диапазоны которые нужно группировать выделить определённым цветом (допустим ячейки А5:А6 закрасить зелёным цветом) и потом этот диапазон сгруппировать в строках. У меня получается решить данную проблему для одного диапазона, но когда их несколько, то не получается. Тупик у меня.

Sub Gruppa()
Dim myRng As Range, iRows As Range
For Each iRows In Range("A:A")
If iRows.Interior.ColorIndex = 38 Then
If myRng Is Nothing Then
Set myRng = iRows
Else
Set myRng = Union(myRng, iRows)
End If
End If

Next
myRng.Select
Selection.Rows.Group

End Sub

A-Nik,

Возможно вопрос сформулирован неправильно. Но мне непонятно, каким образом Ваш способ решит проблему.
На исходном листе уже существуют группы. Данные скопировали на новый лист при помощи спец. вставки, т.е. группы на новый лист не переносятся. Как сделать, чтобы на новом листе образовались такие же группы, как и на исходном.

Подскажите пожалуйста, как преобразовать данный макрос

Sub Gruppa()
Dim myRng As Range, iRows As Range
For Each iRows In Range("A:A")
If iRows.Interior.ColorIndex = 38 Then
If myRng Is Nothing Then
Set myRng = iRows
Else
Set myRng = Union(myRng, iRows)
End If
End If

Next
myRng.Select
Selection.Rows.Group

End Sub


группирующий строки, если они закрашены 38 цветом <Этот макрос работает, только если на листе есть один неразрывный диапазон> для того, чтобы он группировал строки при наличии нескольких диапазонов?

sergeyvg,

огромное спасибо, всё работает!!!