[.Quattro.]

Поиграйтесь этим кодом:

Цитата:

GroupRange(RangeText : Text[30];What : 'Rows,Cols');
IF What = What::Rows THEN
xlWorkSheet.Range(RangeText).Rows.Group
ELSE
xlWorkSheet.Range(RangeText).Columns.Group;

RangeText - это адреса ячеек, к примеру B11