Как вставить несколько строк/столбцов?
Delphi:
// заполним ячейки данными для наглядности
ASheet.Range['A1', EmptyParam].Formula := 1; R := ASheet.Range['A1:A25', EmptyParam]; R.DataSeries(xlColumns, xlLinear, xlDay, 1, EmptyParam, EmptyParam); R := ASheet.Range['A1:O1', EmptyParam]; R.DataSeries(xlRows, xlLinear, xlDay, 1, EmptyParam, EmptyParam);
// не забывайте указывать EntireRow и EntireColumn!
// добавим пять пустых строк после 20-й строки
ASheet.Range['21:25', EmptyParam].EntireRow.Insert(xlShiftDown, EmptyParam);
// удвоим ширину второго и третьего столбцов
ASheet.Range['B:C', EmptyParam].EntireColumn.ColumnWidth := ASheet.Range['B:C', EmptyParam].EntireColumn.ColumnWidth * 2; // удвоим высоту второй и третьей строки
ASheet.Range['2:3', EmptyParam].EntireRow.RowHeight := ASheet.Range['2:3', EmptyParam].EntireRow.RowHeight * 2;
// удалим 4, 6 и 8 столбцы (два способа - кому что понравится)
// ASheet.Range['D:D,F:F,H:H', EmptyParam].EntireColumn.Delete(xlShiftToLeft);
ASheet.Range['D1,F1,H1', EmptyParam].EntireColumn.Delete(xlShiftToLeft);
ColumnWidth
RowHeight Property
Insert Method
Delete Method
