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

Question

如果 B 列有值，以下代码会在 A 列中添加自动编号，我想更改该代码，以便它会从最后一行开始添加自动编号计数。为什么？，因为如果我删除第一列中已有数字的任何行，即。删除第 5 行和第 6 行后，我在第一列 1、2、3、4、7、8 中有序列。在我运行我的代码之后，它会将其更改回 1、2、3、4、5、6 , 但如果它可以从最后一行开始，它 would/should 看起来像这样：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

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

Autolnumber based on last cell in a row value

excel

vba

autonumber