如何使用Excel VBA获取新插入记录的ID？

要使用Excel VBA获取新插入记录的ID，您可以使用以下步骤：

1. 打开Excel文件，并按Alt+F11打开Visual Basic for Applications (VBA)编辑器。
2. 在VBA编辑器中，单击Insert菜单，然后选择Module以创建一个新的模块。
3. 在新模块中，输入以下代码：

Function GetLastRow() As Long
    Dim ws As Worksheet
    Set ws = ActiveSheet
    GetLastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
End Function

这个函数将返回当前工作表中最后一行的行号，假设数据在列A中。如果您的数据在其他列中，请将代码中的"A"更改为相应的列字母。

1. 现在，您可以在工作表中调用此函数来获取新插入记录的ID。例如，假设您有一个名为"Sheet1"的工作表，其中包含一个名为"ID"的列，您可以在单元格B2中输入以下公式：

=GetLastRow()+1

这将返回新插入记录的ID，即最后一行的ID加1。

1. 如果您想要在插入新行时自动更新ID，可以使用Worksheet_Change事件。在VBA编辑器中，单击ThisWorkbook对象，然后在代码窗口中输入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = Range("A" & Rows.Count).End(xlUp).Row + 1 Then
        Cells(Target.Row, 2).Value = GetLastRow() + 1
    End If
End Sub

这个事件将在插入新行时自动更新ID列（在这个例子中是列B）。

这样，您就可以使用Excel VBA获取新插入记录的ID了。