Работа с Excel. Суть: Если номер строки в Excel четный тогда объеденяем эту ячейку с последующей.

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  xlAscending = 1; //Для сортировки по возрастанию.
  xlDescending = 2; //Для сортировки по убыванию.
  xlYes = 1; //Верхняя строка диапазона не участвует в сортировке.
  xlNo = 2; //Верхняя строка диапазона участвует в сортировке.
  xlSortColumns = 1; //Сортировать по столбцам.
  xlSortRows = 2; //Сортировать по строкам.
var
  exApp, exBook, exSheet, exUsRng, exRng, exCell : Variant;
  Row, Col, RowCnt, ColCnt : Integer;
  S : String;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  //Если начальная папка диалога не задана, то в качестве начальной берём ту папку,
  //в которой расположен исполняемый файл нашей программы.
  if Od.InitialDir = '' then Od.InitialDir := ExtractFilePath(ParamStr(0));
  //Запуск диалога открытия файла.
  if not Od.Execute then Exit;
  //Если файла с заданным именем не существует - выходим.
  if not FileExists(Od.FileName) then begin
    MessageBox(
      0
      ,'Файл с заданным именем не найден. Действие отменено.'
      ,'Файл не найден'
      ,MB_OK + MB_ICONWARNING + MB_APPLMODAL
    );
    Exit;
  end;
 
  exApp := CreateOLEObject('Excel.Application'); // Создание OLE объекта
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(Od.FileName);
  exSheet := exBook.Worksheets[1]; //Первый лист в рабочей книге.
 
  //Ссылка на интерфейс используемого диапазона.
  exUsRng := exSheet.UsedRange;
  //Номер нижней строки в используемом диапазоне относительно верхней строки листа.
  RowCnt := exUsRng.Row + exUsRng.Rows.Count - 1;
  //Номер правого столбца в используемом диапазоне относительно левого края листа.
  ColCnt := exUsRng.Column + exUsRng.Columns.Count - 1;
  //Теперь переопределим диапазон exUsRng - он будет иметь смысл диапазона,
  //который мы должны обрабатывать. Этот диапазон начинается со второй строки
  //листа и заканчивается последней строкой диапазона UsedRange.
  exUsRng := exSheet.Range[exSheet.Cells[2, 1], exSheet.Cells[RowCnt, ColCnt]];
 
  try
    //Выключаем перерисовку окна.
    exApp.ScreenUpdating := False;
 
    //Первый столбец.
    Col := 1;
 
    //Удаление строк.
    for Row := exUsRng.Rows.Count downto 1 do
      if exUsRng.Cells[Row, Col].Text = '5' then
        exUsRng.Rows[Row].Delete;
 
    //Удаляем заданный столбец.
    exUsRng.Columns[Col].Delete;
 
    //Сортировка диапазона по алфавиту.
 
    //Если надо отсортировать только один столбец:
    //exRng := exUsRng.Columns[Col]; //Диапазон, представляющий заданный столбец.
    //exRng.Sort(Key1:=exRng.Cells[1, 1], Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns);
 
    //Если надо отсортировать весь диапазон по ключу заданного столбца:
    exUsRng.Sort(Key1:=exUsRng.Cells[1, Col], Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns);
 
    //Объединение ячеек в заданном столбце.
 
    //Чтобы Excel не выводил диалоговых окон с предупреждениями при объединениях ячеек,
    //отключаем режим показа предупреждений.
    exApp.DisplayAlerts := False;
    //В заданном столбце диапазона попарно объединяем ячейки.
    Row := 1;
    while Row <= exUsRng.Rows.Count do begin
      //Ссылка на текущую ячейку.
      exCell := exUsRng.Cells[Row, Col];
      //Определяем объединяемый диапазон.
      exRng := exSheet.Range[exCell, exCell.Offset[1, 0]];
      //Собираем значения в одну строку.
      S := exRng.Cells[1, 1].Text + #13#10 + exRng.Cells[2, 1].Text;
      //Объединение ячеек.
      exRng.MergeCells := True;
      //Для объединённого диапазона устанавливаем режим переноса по словам.
      exRng.WrapText := True;
      //Записываем текст.
      exRng.Cells[1, 1].Value := S;
      //Номер первой строки в следующей паре.
      Inc(Row, 2);
    end;
  finally
    //Теперь включаем перерисовку окна и включаем режим показа предупреждений.
    exApp.ScreenUpdating := True;
    exApp.DisplayAlerts := True;
  end;
end;

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  xlAscending = 1; //Для сортировки по возрастанию.
  xlDescending = 2; //Для сортировки по убыванию.
  xlYes = 1; //Верхняя строка диапазона не участвует в сортировке.
  xlNo = 2; //Верхняя строка диапазона участвует в сортировке.
  xlSortColumns = 1; //Сортировать по столбцам.
  xlSortRows = 2; //Сортировать по строкам.
var
  exApp, exBook, exSheet, exUsRng, exRng, exCell : Variant;
  Row, Col, RowCnt, ColCnt : Integer;
  S : String;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  //Если начальная папка диалога не задана, то в качестве начальной берём ту папку,
  //в которой расположен исполняемый файл нашей программы.
  if Od.InitialDir = '' then Od.InitialDir := ExtractFilePath(ParamStr(0));
  //Запуск диалога открытия файла.
  if not Od.Execute then Exit;
  //Если файла с заданным именем не существует - выходим.
  if not FileExists(Od.FileName) then begin
    MessageBox(
      0
      ,'Файл с заданным именем не найден. Действие отменено.'
      ,'Файл не найден'
      ,MB_OK + MB_ICONWARNING + MB_APPLMODAL
    );
    Exit;
  end;
 
  exApp := CreateOLEObject('Excel.Application'); // Создание OLE объекта
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open(Od.FileName);
  exSheet := exBook.Worksheets[1]; //Первый лист в рабочей книге.
 
  //Ссылка на интерфейс используемого диапазона.
  exUsRng := exSheet.UsedRange;
  //Номер нижней строки в используемом диапазоне относительно верхней строки листа.
  RowCnt := exUsRng.Row + exUsRng.Rows.Count - 1;
  //Номер правого столбца в используемом диапазоне относительно левого края листа.
  ColCnt := exUsRng.Column + exUsRng.Columns.Count - 1;
  //Теперь переопределим диапазон exUsRng - он будет иметь смысл диапазона,
  //который мы должны обрабатывать. Этот диапазон начинается со второй строки
  //листа и заканчивается последней строкой диапазона UsedRange.
  exUsRng := exSheet.Range[exSheet.Cells[2, 1], exSheet.Cells[RowCnt, ColCnt]];
 
  try
    //Выключаем перерисовку окна.
    exApp.ScreenUpdating := False;
 
    //Первый столбец.
    Col := 1;
 
    //Удаление строк.
    for Row := exUsRng.Rows.Count downto 1 do
      if exUsRng.Cells[Row, Col].Text = '5' then
        exUsRng.Rows[Row].Delete;
 
    //Удаляем заданный столбец.
    exUsRng.Columns[Col].Delete;
 
    //Объединение ячеек в заданном столбце.
 
    //Корректируем обрабатываемый диапазон таким образом, чтобы он содержал
    //чётное число строк. Для этого, в случае, если диапазон имеет нечётное
    //число строк, мы добавим в него ещё одну строку снизу.
    if exUsRng.Rows.Count mod 2 <> 0 then
      exUsRng := exApp.Union(exUsRng, exUsRng.Rows[1].Offset[exUsRng.Rows.Count, 0]);
 
    //Чтобы Excel не выводил диалоговых окон с предупреждениями при объединениях ячеек,
    //отключаем режим показа предупреждений.
    exApp.DisplayAlerts := False;
    //В заданном столбце диапазона попарно объединяем ячейки.
    Row := 1;
    while Row <= exUsRng.Rows.Count do begin
      //Ссылка на текущую ячейку.
      exCell := exUsRng.Cells[Row, Col];
      //Определяем объединяемый диапазон.
      exRng := exSheet.Range[exCell, exCell.Offset[1, 0]];
      //Собираем значения в одну строку.
      S := exRng.Cells[1, 1].Text + #13#10 + exRng.Cells[2, 1].Text;
      //Объединение ячеек.
      exRng.MergeCells := True;
      //Для объединённого диапазона устанавливаем режим переноса по словам.
      exRng.WrapText := True;
      //Записываем текст.
      exRng.Cells[1, 1].Value := S;
      //Номер первой строки в следующей паре.
      Inc(Row, 2);
    end;
 
    //Сортировка диапазона по алфавиту.
 
    //Если надо отсортировать только один столбец:
    exRng := exUsRng.Columns[Col]; //Диапазон, представляющий заданный столбец.
    exRng.Sort(Key1:=exRng.Cells[1, 1], Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns);
 
    //Если надо отсортировать весь диапазон по ключу заданного столбца:
    //exUsRng.Sort(Key1:=exUsRng.Cells[1, Col], Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns);
  finally
    //Теперь включаем перерисовку окна и включаем режим показа предупреждений.
    exApp.ScreenUpdating := True;
    exApp.DisplayAlerts := True;
  end;
end;

const
  xlSortNormal = 0;
  xlSortTextAsNumbers = 1;
  
...
begin
...
  exRng.Sort(
    Key1:=exRng.Cells[1, 1], Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns,
    MatchCase:=True, DataOption1:=xlSortNormal
  );