Excel结构化表格删除单元格移位功能失效的解决方法咨询

问题场景 #

此前在带筛选的普通数据区域，使用VBA代码If Not DeleteCells Is Nothing Then DeleteCells.Delete Shift:=xlShiftToLeft（DeleteCells为跨工作表的待删除单元格区域）可正常实现删除并左移单元格。但将Power Query导入的数据转为名为Query1的Excel结构化表格后，运行该宏时触发报错：

This won't work because it would move cells in a table on your worksheet.

解决方案 #

结构化表格（ListObject）有专属操作逻辑，无法直接沿用普通单元格区域的删除方法，以下两种方案可恢复删除移位功能：

方案1：直接操作表格ListObject对象 #

通过识别单元格所属表格，调用表格自身的删除方法实现左移，保留表格的结构化特性和Power Query连接：

If Not DeleteCells Is Nothing Then
    Dim tbl As ListObject
    Dim cell As Range
    Dim colIndex As Integer
    
    For Each cell In DeleteCells
        ' 检查单元格是否属于结构化表格
        Set tbl = cell.ListObject
        If Not tbl Is Nothing Then
            ' 计算单元格在表格中的列索引
            colIndex = cell.Column - tbl.Range.Column + 1
            ' 删除表格内对应单元格并左移
            tbl.ListColumns(colIndex).DataBodyRange(cell.Row - tbl.HeaderRowRange.Row).Delete Shift:=xlShiftToLeft
        Else
            ' 非表格区域单元格按原逻辑处理
            cell.Delete Shift:=xlShiftToLeft
        End If
    Next cell
End If

方案2：临时转为普通区域操作 #

先将表格转为普通单元格区域，执行删除后再恢复为结构化表格，适合简单场景：

If Not DeleteCells Is Nothing Then
    Dim tbl As ListObject
    ' 获取目标表格
    On Error Resume Next
    Set tbl = ActiveSheet.ListObjects("Query1")
    On Error GoTo 0
    
    If Not tbl Is Nothing Then
        ' 转为普通区域
        tbl.Unlist
        ' 执行删除左移
        DeleteCells.Delete Shift:=xlShiftToLeft
        ' 重新创建结构化表格
        ActiveSheet.ListObjects.Add(xlSrcRange, tbl.Range, , xlYes).Name = "Query1"
    Else
        DeleteCells.Delete Shift:=xlShiftToLeft
    End If
End If

注意事项 #

• 方案1更稳定，适合需要保留表格特性和Power Query连接的场景
• 方案2操作简单，但表格格式、筛选规则可能需要重新调整，且刷新Power Query后需重新执行该操作

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