为Excel formations表格新增带自动递增ID的行

你现有的代码已经能完成向formations工作表的同名表格新增行的操作，要实现基于已有最高ID生成连续新ID的功能，可以按以下修改后的代码来实现：

Private Sub CommandButton1_Click()
    SaveOptions.Hide
    Dim myRow As ListRow
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim maxID As Long
    Dim idCol As ListColumn
    
    ' 绑定目标工作表和表格对象，减少重复调用
    Set ws = ActiveWorkbook.Worksheets("formations")
    Set tbl = ws.ListObjects("formations")
    
    ' 指定ID列（请根据实际表头修改引号内的名称，比如"序号"）
    Set idCol = tbl.ListColumns("ID")
    
    ' 获取最高ID并计算新ID
    If tbl.ListRows.Count = 0 Then
        ' 表格为空时，初始ID设为1
        maxID = 1
    Else
        ' 取ID列最大值并加1
        maxID = WorksheetFunction.Max(idCol.DataBodyRange) + 1
    End If
    
    ' 在表格末尾新增行（默认添加到最后，无需指定位置参数）
    Set myRow = tbl.ListRows.Add
    ' 给新增行的ID列赋值
    myRow.Range(idCol.Index) = maxID
End Sub

关键说明： #

• 对象绑定优化：提前绑定工作表和表格对象，避免重复调用ActiveWorkbook和Worksheets，既提升代码运行效率，也避免因当前活动对象变化导致的错误。
• 空表格处理：如果表格还没有任何数据，直接将初始ID设为1，避免Max函数报错。
• 最大值获取：利用WorksheetFunction.Max直接获取ID列的数值最大值，自动忽略空单元格，确保拿到正确的最高ID，加1后就是新的连续ID。
• 简化新增行逻辑：ListRows.Add默认会在表格末尾添加新行，原代码中的intRows参数可以省略，代码更简洁。
• ID列赋值：通过myRow.Range(idCol.Index)精准定位到新增行的ID列单元格，完成新ID的赋值。

注意事项： #

• 请确认表格中ID列的表头名称与代码中tbl.ListColumns("ID")的字符串一致，如果实际表头是“序号”或其他名称，需要对应修改。
• 如果ID列可能存在非数值内容，建议添加错误处理（比如On Error Resume Next配合判断），避免Max函数抛出异常。

内容的提问来源于stack exchange，提问作者Hugo Almeida