我之前处理百万级行的Excel表格时也碰到过一模一样的错误！你用Sheet3.Range("A20","E500000").Delete 2报错的核心原因是：Excel的表格（ListObject）是结构化对象，不能直接通过普通单元格区域的Delete方法来修改它的行结构，必须通过表格对象本身的API来操作。

最适合百万级行的高效解决方案 #

直接操作表格的DataBodyRange属性（这个属性指向表格中除表头外的所有数据行），一行代码就能搞定，而且效率极高，完全不用循环：

With Sheet3.ListObjects("Table1")
    ' 先判断表格是否有数据行，避免空对象报错
    If Not .DataBodyRange Is Nothing Then
        .DataBodyRange.Delete
    End If
End With

这个方法会一次性删除所有表头以外的行，不管你的表格有几万还是几百万行，都能快速完成。

为什么你的原代码会报错？ #

你直接指定Range("A20","E500000")来删除，本质是在操作普通单元格区域，但这个区域属于表格Table1的一部分。Excel对表格的结构保护机制会阻止这种“非结构化”的修改操作，所以才会弹出“此操作无法执行，因为它会移动工作表中表格内的单元格”的提示。

另一种灵活的场景（比如只删除某几行） #

如果之后你需要删除表格中特定范围的行（而不是全部数据行），可以通过表格的ListRows集合来操作，比如删除从第2行到最后一行：

Dim tbl As ListObject
Set tbl = Sheet3.ListObjects("Table1")

If tbl.ListRows.Count >= 1 Then
    ' 从第2行开始，选中剩余的所有行并删除
    tbl.ListRows(2).Range.Resize(tbl.ListRows.Count - 1).Delete
End If

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