实现指定表格内的行删除功能，防止误删重要行

针对你的预算模板场景，以下是适配动态表格的安全删除行解决方案，彻底避免误删表头、总计行的风险：

核心思路 #

完全基于Excel表格（ListObject）对象操作，不依赖固定行号：

• 仅允许删除表格内的数据行
• 自动排除表头行、总计行（若表格启用总计）
• 增加删除确认弹窗，降低误操作概率

安全删除行代码 #

Sub DeleteSafeTableRow()
    Dim tbl As ListObject
    Dim selectedRow As Range
    Dim listRow As ListRow
    
    ' 获取当前选中单元格所在的整行
    Set selectedRow = ActiveCell.EntireRow
    
    ' 定位该行所属的表格对象
    On Error Resume Next
    Set tbl = selectedRow.Worksheet.ListObjects.Item(selectedRow)
    On Error GoTo 0
    
    ' 校验：不在表格范围内则提示
    If tbl Is Nothing Then
        MsgBox "只能删除预算表格内的数据行", vbExclamation
        Exit Sub
    End If
    
    ' 校验：禁止删除表头行
    If Not Intersect(selectedRow, tbl.HeaderRowRange) Is Nothing Then
        MsgBox "禁止删除表头行", vbCritical
        Exit Sub
    End If
    
    ' 校验：禁止删除总计行（若表格启用了总计功能）
    If tbl.ShowTotals Then
        If Not Intersect(selectedRow, tbl.TotalsRowRange) Is Nothing Then
            MsgBox "禁止删除总计行", vbCritical
            Exit Sub
        End If
    End If
    
    ' 定位表格内的对应数据行并删除
    On Error Resume Next
    Set listRow = tbl.ListRows(selectedRow.Row - tbl.HeaderRowRange.Row)
    On Error GoTo 0
    
    If Not listRow Is Nothing Then
        If MsgBox("确定要删除该行吗？", vbYesNo + vbQuestion) = vbYes Then
            listRow.Delete
        End If
    Else
        MsgBox "无法识别的表格行，无法删除", vbExclamation
    End If
End Sub

代码关键说明 #

1. 动态适配表格行：通过ListObject定位行，不管新增多少行，都能准确识别表格内的有效数据行
2. 多层安全校验：依次检查是否在表格内、是否为表头/总计行，从根源杜绝误删
3. 用户确认机制：删除前弹出确认框，进一步降低误操作风险
4. 兼容总计行：自动识别表格是否启用总计行，针对性保护

与现有添加行代码的配合 #

你的AddConsultant代码已经正确基于表格对象添加行，搭配上述删除代码后，全程通过ListObject操作行，能确保表格的总计公式始终自动更新，不会因为行的增删出现公式错误。

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