VBA -如果纸张数量增加，建议增加序列号

Sub AddSerialNumber()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim serialNumber As Long
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 设置初始序列号
    serialNumber = 1
    
    ' 从第二行开始，为每一行的第一列增加序列号
    For i = 2 To lastRow
        ws.Cells(i, 1).Value = serialNumber
        serialNumber = serialNumber + 1
    Next i
End Sub