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

我有一个小组添加升序号码的每一个单元列最后一行开始第二行，但第二行开始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" 。