цикл в цикле

[123456789igor]

Сообщение от Sciv

И, кстати, тот код, который у Вас приведен сейчас, объединяет ячейки попарно - так и надо?

Нет лучше конечно чтобы сразу объединялись все ячейки до след заполненной, но я не знаю как это сделать и делал по парно, так как кол-во объединяемых ячеек заранее не известно

[Sciv]

Попробуйте так:

z:=Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-1;
NRow:= <№ первой пустой ячейки>; //Сюда запомним первую пустую ячейку из массива строк
NRow1:=NRow; //А с этой будем работать
NCol:= 1;
repeat
  dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow1,NCol];
  If dir='' then NRow1:=NRow1+1 //Проверяем: если ячейка пустая, значит объединять еще не пора
  else break;//иначе прерываем нафиг весь цикл
until NRow1>=z;
Excel.WorkBooks[1].WorkSheets[1].Range[Excel.WorkBooks[1].WorkSheets[1].cells[NRow,NCol],Excel.WorkBooks[1].WorkSheets[1].cells[NRow1,NCol]].merge; //И собственно объединяем весь найденный кусок пустых строк в столбце №1 с ячейки NRow по ячейку NRow1

[123456789igor]

a_:=9;
      z:=Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-2;
      while a_ < z do
      begin
      repeat
      Excel.Range[Excel.cells[a_-1,1],Excel.cells[a_,1]].merge;
      inc(a_);
      until VarToStr(Excel.cells[a_,1]) <> '';
      break;
      end;

Сделал так, но объединяет только с 9 по 23 строку, 24 не пустая, а дальше опять идут пустые. Как изменить код, что бы объединяло дальше с 24?

[Sciv]

Загоняете в цикл:

 While i<> <последняя непустая строка> do 
  if Excel.WorkBooks[1].WorkSheets[1].Cells[i,NCol]='' then begin
    a_:=i;
    {и дальше Ваш код}
    i:=a_; 
  end
  else inc(i);

[123456789igor]

Project Project2.exe raised exception class EOleSysError
with message 'Ошибка'. Process stopped. Use Step or to continue.

вот с таким кодом:

a_:=9;
      z:=Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-2;
      While i<> z do
  if VarToStr(Excel.WorkBooks[1].WorkSheets[1].Cells[i,1])='' then begin
    a_:=i;
      while a_ < z do
      begin
      repeat
      Excel.Range[Excel.cells[a_-1,1],Excel.cells[a_,1]].merge;
      inc(a_);
      until VarToStr(Excel.cells[a_,1]) <> '';
      break;
      end;
    i:=a_;
  end
  else inc(i);

[Sciv]

VarToStr(...)

Думаю, из-за этого. Попробуйте прямым текстом, без преобразования

if Excel.WorkBooks[1].WorkSheets[1].Cells[i,1]='' then

А a_:=9 в начале вообще уберите, на кой она теперь?

Далее: Ваш код отличается от того, который я писал, поэтому Вам надо a_
присваивать не i, а i+1:

a_:=i+1;

И еще вот тут: если у Вас первая строка пустая, то строки [a_-1] в природе не существует. Поэтому добавляем проверку:

If i>1 then Excel.Range[Excel.cells[a_-1,1],Excel.cells[a_,1]].merge;

Или If i>0 then - я просто сейчас не помню, с какой цифры ячейки нумеруются. Но вроде все-же с единицы...