小编Cra*_*e92的帖子

我做了以下循环以使每个单元格下行,直到它到达与另一列中最后一个使用过的单元格齐平的单元格.然而,它远远超出了最后使用的细胞.它工作正常,但运行时需要更长的时间,特别是当它有30,000行时要通过!有没有人对这个有任何想法？

Dim i As Long
lMaxRows = Cells(Rows.Count, "K").End(xlUp).Row
For i = 1 To lMaxRows
    Range("D" & lMaxRows + 1).Select
    ActiveCell.FormulaR1C1 = "0:00:00"
    lMaxRows = Cells(Rows.Count, "E").End(xlUp).Row
    Range("E" & lMaxRows + 1).Select
    ActiveCell.FormulaR1C1 = "1"
Next i