[lmikle]

Надеюсь кол-во ячеек в первом и втором списке одинаковое?

Код:

var
  I : Integer;
begin
  Apex := CreateOleObject('Excel.Application'); //начинаю работу с excel
  Apex.Workbooks.Open(Ap+'Имя файла.xlsx'); 
  For I := 0 To ListBox1.Items.Count-1 Do
    begin
      Apex.ActiveWorkBook.Sheets.Item[1].Activate; //1 лист активен
      L1C1z := Apex.WorkBooks[1].WorkSheets[1].Range[ListBox1.Items[i]];  //значение ячейки в переменную
      Apex.ActiveWorkBook.Sheets.Item[2].Activate; //2 лист активен
      Apex.Range[ListBox2.Items[i]] := L1C1z;  //из переменной в ячейку второго листа
    end;