在通过宏导入期间插入递增的ID列值

Question

我在DB中有这个表，

ID  Name    role
1   raj     student
2   kumar   student
3   ajay    professor

现在我在excel中有以下数据，需要通过宏上传这些数据。

ID  Name    role
    kamal   student
    khan    HOD

在宏上载期间，ID列值应如何自动递增，即。它应该从db获取最大id并将id递增1（如下所示）

ID  Name    role
4   kamal   student
5   khan    HOD

Answer 1

导入数据后（将A列中的ID留空），使用数据系列完成操作。

Dim fr As Long, lr As Long
With Sheets("My_Imported_Data")
    fr = .Cells(Rows.Count, 1).End(xlUp).Row
    lr = .Cells(Rows.Count, 2).End(xlUp).Row
    .Range(.Cells(fr, 1), .Cells(lr, 1)).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
End With

假设先前的导入数量有参考。如果没有数字，则必须在列A的顶部添加起始编号。