Выгрузка данных в Excel

[randrews]

Тогда просто чаще вставляете свой код... Проверяйте в цикле смену валюты
Если ваш код нормально суммирует, то немного отредактируйте его

IF LastCurencyCode <> CurrentCurencyCode THEN BEGIN
	EnterCell(CurrentRow,6,'=СУММ(R[-'+FORMAT((CurrentRow - LastRow) - 9)+']C:R[-1]C',FALSE,FALSE,FALSE,TRUE,TRUE,TRUE,1,color,10);
	LastRow := CurrentRow; 
	LastCurencyCode := CurrentCurencyCode;
END;

Только замените "- 9" верной константой. И проинициализируйте LastRow и LastCurencyCode в начале цикла.

P.S. а также с основным вашим алгоритмом в цикле состыкуйте...