Как писать в ячейки нескольких листов сразу?

Чтобы занести данные в несколько листов сразу, вы можете объединить листы методом Worksheets.Select и воспользоваться методом FillAcrossSheets

Delphi:

var

SelSheets: Sheets; … // заносим данные в активный лист

XL.Range['B2', EmptyParam].Formula := 123.45; XL.Range['B3', EmptyParam].Borders.LineStyle := xlUnderlineStyleDouble;

// выберем 4 листа, в которые будут сдублированы данные

SelSheets := XL.ActiveWorkbook.Sheets[VarArrayOf([1, 2, 3, 4])] as Sheets;

// SelSheets.Select(False, lcid); // не обязательно

// заполним выбранные листы данными из активного листа из любой области ячеек

SelSheets.FillAcrossSheets((XL.ActiveSheet as _Worksheet).UsedRange[lcid], xlFillWithAll, lcid);

Select Method

FillAcrossSheets Method