删除ListObject表头时Worksheet_Change事件触发两次，求简洁VBA方案

针对你遇到的ListObject表头删除触发两次Change事件、需要恢复原始表头的问题，原来的If..ElseIf分支可以用字典映射或者动态遍历表头区域来替代，代码更简洁且扩展性更强，以下是具体实现：

方案1：用字典存储原始表头（推荐） #

这种方式适合表头列数较多或可能动态调整的场景，不用硬编码每一列的判断：

1. 先在工作表模块的顶部声明模块级对象，用来保存表头单元格地址和原始名称：

Private originalHeaders As Object ' 用Object避免额外引用组件

2. 在工作表激活时初始化字典，保存原始表头信息：

Private Sub Worksheet_Activate()
    Dim tbl As ListObject
    Set tbl = Me.ListObjects(1) ' 替换成你的表格名称或索引
    Set originalHeaders = CreateObject("Scripting.Dictionary")
    
    Dim cell As Range
    For Each cell In tbl.HeaderRowRange
        originalHeaders(cell.Address) = cell.Value
    Next cell
End Sub

3. 修改Worksheet_Change事件，用字典快速恢复表头：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As ListObject
    Set tbl = Me.ListObjects(1)
    Dim intersectRange As Range
    
    Application.EnableEvents = False
    On Error GoTo Cleanup
    
    ' 判断修改区域是否在表头范围内
    Set intersectRange = Intersect(Target, tbl.HeaderRowRange)
    If Not intersectRange Is Nothing Then
        ' 遍历所有被修改的表头单元格，从字典取原始值恢复
        Dim cell As Range
        For Each cell In intersectRange
            If originalHeaders.Exists(cell.Address) Then
                cell.Value = originalHeaders(cell.Address)
            End If
        Next cell
    Else
        ' 处理其他禁止编辑区域的逻辑，示例：直接撤销修改
        Dim protectedArea As Range
        Set protectedArea = Me.Range("A1:C3") ' 替换成你的禁止编辑区域
        If Not Intersect(Target, protectedArea) Is Nothing Then
            Application.Undo
        End If
    End If

Cleanup:
    Application.EnableEvents = True
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

方案2：用Select Case简化分支（适合列数少的场景） #

如果表头列数固定且不多，也可以用Select Case替代冗长的If..ElseIf，代码更规整：

' 在Worksheet_Change的表头判断分支中替换原有If..ElseIf
For Each cell In intersectRange
    Select Case cell.Column
        Case tbl.ListColumns("姓名").Range.Column: cell.Value = "姓名"
        Case tbl.ListColumns("年龄").Range.Column: cell.Value = "年龄"
        Case tbl.ListColumns("部门").Range.Column: cell.Value = "部门"
        ' 新增列只需添加对应Case分支
    End Select
Next cell

优势说明 #

• 字典方案：无需硬编码列位置或名称，表头新增/调整时不用修改代码，适配动态表格场景。
• Select Case：比If..ElseIf结构更清晰，列数少时代码可读性更高。

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