调整代码以向列中的每个单元格添加升序编号，从第2行开始的最后一行

Question

我有一个Sub来为列中的每个单元格添加升序编号，从第2行开始的最后一行 但第二行从2开始我需要它从1开始我无法弄清楚如何让第二行从1开始并倒数到最后一行

由于

Sub AutoCount()

Dim LR As Long

LR = Range("A" & Rows.Count).End(xlUp).Row
Range("L2:L" & LR).Formula = "=ROW(L2)"

End Sub

Answer 1

而不是"=ROW(L2)"，请使用"=ROW(L2)-1"。