比较两个不同工作表中的单元格，并将排列后的结果粘贴到另一个工作表上

我有一个代码的一部分，我有两个名为“Dia”和“E”的工作表，并且在这两个工作表中都有一个时间列。 我正在编写一个程序，将两个列的单元格相互比较，并按升序排列时间，这将放在名为“E_Dia”的第三个工作表中。 当我运行代码时，代码以非常奇怪的方式执行循环。 首先粘贴第一张表格的时间单元格的所有值，然后粘贴第二张表格中的值，而不是安排时间。

Dim i As Long ' initiating long variable Dim l As Long Dim j As Long j = 2 l = 2 For i = 2 To LastRow_Dia Do While ActiveWorkbook.Sheets("Dia").Cells(i, 4).Value >= ActiveWorkbook.Sheets("E").Cells(j, 4).Value ActiveWorkbook.Sheets("E_Dia").Cells(l, 4).Value = ActiveWorkbook.Sheets("E").Cells(j, 4).Value j = j + 1 l = l + 1 Loop ActiveWorkbook.Sheets("E_Dia").Cells(l, 4).Value = ActiveWorkbook.Sheets("Dia").Cells(i, 4).Value l = l + 1 Next i 

所需的结果示例如下：前24行应具有“E”工作表中的时间值，因为这些行中的时间值较小。 第25行应该从“Dia”工作表中获得时间值，但是不能提供期望的输出。