excel - 基于行值中最后一个单元格的 Autolnumber

Question

如果 B 列有值，以下代码将在 A 列中添加自动编号，我想更改该代码，以便它开始添加从最后一行向下计数的自动编号。 为什么？因为如果我删除第一列中已有数字的任何行，即。删除第 5 行和第 6 行后，我在第一列 1, 2, 3, 4, 7, 8 中有序列。运行代码后，它会将其更改回 1, 2, 3, 4, 5, 6，但如果它可以从最后一行开始，它会/应该看起来像这样:1、2、3、4、7、8、9、10 等。换句话说，它不应该更改现有行，而只是继续对新添加的行进行编号。我该怎么做？

Sub AutoNumber()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    Range("A1").AutoFill Destination:=Range("A1:A" & lastRow), Type:=xlFillSeries
End Sub

Answer 1

对于顺序系列，我更喜欢 DataSeries 而不是 AutoFill。

Sub AutoNumber()
    Dim lastRowA As Long, lastRowB As Long
    lastRowA = Range("A" & Rows.Count).End(xlUp).Row
    lastRowB = Range("B" & Rows.Count).End(xlUp).Row
    Range(cells(lastrowa, "A"), cells(lastrowb, "A")).DataSeries _
       Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
End Sub