基于行值中最后一个单元格的自动编号答案

【问题标题】：Autolnumber based on last cell in a row value基于行值中最后一个单元格的自动编号
【发布时间】：2019-03-31 19:07:22
【问题描述】：

如果 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

【问题讨论】：

标签： excel vba autonumber

【解决方案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

【讨论】：