Надеюсь кол-во ячеек в первом и втором списке одинаковое?
Код:
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;