Excel M365无法删除表格行问题求助（版本2211）

问题现象 #

在Windows 11 22H2系统、Excel M365（2211版本）环境下，表格「ToDeleteFromDL」出现以下异常：

• 右键点击表格单元格，仅显示「删除列」或「删除整行」选项，无「删除表格行」选项；
• 执行以下VBA代码时，弹出「Delete entire sheet row」提示框，只能选择取消，无法直接删除表格行（此前代码可正常运行，怀疑是Office更新导致）。

Dim ToDelete As ListObject
Set ToDelete = Sheets("Diff").ListObjects("ToDeleteFromDL")

'Delete all rows from ToDeleteFromDL table except header
With ToDelete
    If Not .DataBodyRange Is Nothing Then
        .DataBodyRange.Delete
    End If
End With

问题原因 #

这是Office 365 2211版本更新后出现的已知兼容性问题，该版本对表格行删除的交互逻辑和VBA执行逻辑做了调整，导致原本指向表格行的删除操作被默认映射为整行删除。

解决方案 #

提供两种可行的修复方案：

方案1：禁用删除提示（快速解决） #

通过临时关闭Excel的显示提示，跳过整行删除的确认弹窗，代码执行后再恢复提示设置：

Dim ToDelete As ListObject
Set ToDelete = Sheets("Diff").ListObjects("ToDeleteFromDL")

'Delete all rows from ToDeleteFromDL table except header
With ToDelete
    If Not .DataBodyRange Is Nothing Then
        Application.DisplayAlerts = False
        .DataBodyRange.Delete
        Application.DisplayAlerts = True
    End If
End With

方案2：直接删除表格ListRows对象（更精准） #

通过操作表格的ListRows集合来删除行，避免触发整行删除的逻辑：

Dim ToDelete As ListObject
Set ToDelete = Sheets("Diff").ListObjects("ToDeleteFromDL")

'Delete all rows from ToDeleteFromDL table except header
With ToDelete
    Do While .ListRows.Count > 0
        .ListRows(1).Delete
    Loop
End With

右键菜单恢复说明 #

对于右键菜单丢失「删除表格行」选项的问题，目前可通过回滚Office到2210及更早版本临时解决，或等待微软发布后续更新修复该交互bug。

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