Моим рекомендациям в прошлый раз вы не последовали.
Вы понимаете, что каждый раз при вызове такой конструкции
Цитата(123456789igor @ 19.9.2012, 19:56  ) | | Excel.WorkBooks[1].WorkSheets[1].Range[Excel.WorkBooks[1].WorkSheets[1].cells[NRow,NCol],Excel.WorkBooks[1].WorkSheets[1].cells[NRow+1,NCol]] |
компьютер выполняет как минимум 6 абсолютно лишних, достаточно длительных и не-безопасных для вашей программы операций по получению всяких WorkBooks|Sheets[1]?
По факту - код должен выглядеть как-то так: (пишу в браузере, могут быть незначительные ошибки)
| Код |
function FindNextNotEmptyCell(Sheet: OLEVariant; StartFrom:TPoint): TPoint;
begin
if Sheet.Cells[StartFrom.y, StartFrom.x].FormulaR1C1 <> ''
inc(StartFrom.y); // если стартовая ячейка непуста, переходим на следующую.
while Sheet.Cells[StartFrom.y, StartFrom.x].FormulaR1C1 = '' do
inc(StartFrom.y);
// дошли до непустой ячейки
dec(StartFrom.y); // возвращаемся на последнюю пустую.
Result:=StartFrom;
end;
var
CurrentPoint, NextPoint: TPoint;
MaxRow:=Sheet.UsedRange.Rows.Count;
CurrentPoint.x:=1;
CurrentPoint.y:=8;
while CurrentPoint.y<MaxRow do
begin
NextPoint:=FindNextNotEmptyCell(Sheet, CurrentPoint);
Sheet.Range[Sheet.Cells[CurrentPoint.y, CurrentPoint.x], Sheet.Cells[NextPoint.y, NextPoint.x]].Merge;
CurrentPoint:=NextPoint;
inc(CurrentPoint.y, 1); // переходим на следующую непустую ячейку.
end;
|
Добавлено через 2 минуты и 9 секунд
Вполне возможно, что в VBA для узнавания следующей непустой ячейки есть функции, но мне сейчас лень копаться. |
, учетом того, что