Excel VBA删除工作表非连续区域提示Range类Delete方法失败怎么办

执行删除时报Delete method of Range class failed错误，由三个问题共同导致：

• Excel VBA的Range.Delete方法存在原生限制：当传入的Range是多个列方向存在间隔的非连续区域，且执行Shift:=xlLeft（左移删除）时，Excel无法一次性计算多块间隔区域同时左移后的单元格落点，会直接抛出方法调用失败错误。你用Union拼接的四个区域（A:D、H:J、N:N、P:T）之间存在多段未选中的间隔列，刚好触发这个限制。
• 代码缺少边界校验：如果A列最后一行行号小于4（比如表头下没有数据），会生成类似A4:D3的反向无效区域，调用删除方法必然报错。
• 冗余逻辑和隐式风险：代码中定义的lCol变量从未被使用；全程依赖Select/Selection操作，不仅效率低，一旦操作过程中激活工作表变化、用户手动点击单元格改变选中对象，就会触发非预期错误。另外你注释掉的选中代码末尾多了多余逗号，即使取消注释也会报语法错误。

不要一次性拼接所有非连续区域批量删除，改为从最右侧的待删除区域开始，从右往左逐块执行左移删除。左移删除只会影响被删区域右侧的单元格，从右往左操作时，左侧待删除区域的坐标不会因为之前的删除操作发生偏移，既绕开了Excel多区域删除的原生限制，也不会出现定位偏差。
修正后的可直接运行代码如下：

Sub DeleteNonContiguousRanges()
    Dim ws As Worksheet
    Dim lrow As Long
    ' 替换为你实际要操作的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 计算A列最后一行有数据的行号
    lrow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    ' 边界校验：无有效数据时直接退出
    If lrow < 4 Then Exit Sub
    
    ' 从最右侧区域开始，从右往左逐块删除，不需要选中单元格
    ws.Range("P4:T" & lrow).Delete Shift:=xlLeft
    ws.Range("N4:N" & lrow).Delete Shift:=xlLeft
    ws.Range("H4:J" & lrow).Delete Shift:=xlLeft
    ws.Range("A4:D" & lrow).Delete Shift:=xlLeft
End Sub

• 代码移除了所有Select相关的写法，直接操作单元格对象，运行效率更高，也不会因为选中对象变化触发异常。
• 如果你后续需要调整待删除的列范围，只需要记住保持「从右往左删」的顺序即可，不需要修改其他逻辑。
• 如果删除时需要上移单元格（Shift:=xlUp），则可以直接用Union拼接所有区域一次性删除，该方向的多区域删除没有上述原生限制。

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