Developing.ru

Подскажите кто сможет пожалуйста. Мне нужно скопировать несколько рядов и вставить их как новые. В Excel есть функция "добавить скопированные ячейки" и макрос выглядит так

Rows("3:5").Select
Selection.Copy
Rows("2:2").Select
Selection.Insert Shift:=xlDown

знаю как просто добавить ряды и как копировать ряды:

var Worksheet: _Worksheet;
begin
// вставляю новые ряды
Worksheet.Rows.Range['3:5',EmptyParam].Insert(xlDown);
// копирую ряды
Worksheet.Range['A3','A5'].Rows.Copy(Worksheet.Range['A2',EmptyParam]);
end;

казалось бы все работает, но если копируемые ряды сгруппированы, то группировка не копируется, а хотелось бы.

Попробуй через свойство EntireRow (объекта Range)
.EntireRow.Insert(OLEVariant(xlShiftDown));