VBA执行Range类Delete方法失败，删除行操作异常求助

核心问题定位 #

你遇到的Method Delete of Class Range failed报错，且手动删除行也失败，说明问题并非代码逻辑本身，而是目标副本工作簿的环境限制导致的。结合原工作簿正常、副本异常的情况，优先排查以下几个点：

1. 筛选模式未关闭 #

如果目标工作簿打开后处于筛选状态，即使没有显示筛选条件，也会限制行删除操作（包括手动和VBA）。

• 排查方法：切换到「数据」选项卡，查看「筛选」按钮是否处于高亮激活状态。
• 解决：点击「筛选」按钮取消筛选，再尝试手动删除行，确认是否恢复正常。

2. 工作簿处于共享状态 #

共享工作簿会禁用部分编辑功能，包括行删除操作，这是常见的限制场景。

• 排查方法：切换到「审阅」选项卡，点击「共享工作簿」，查看是否勾选了「允许多用户同时编辑，同时允许工作簿合并」。
• 解决：取消共享勾选，保存后重新打开工作簿，重试删除操作。

3. 工作表/行存在隐性保护 #

即使你确认未设置保护，部分场景下可能存在「允许用户编辑区域」的限制，或者行被设置为不可编辑：

• 排查方法：「审阅」→「允许用户编辑区域」，检查是否仅开放了部分单元格的编辑权限；右键行号，查看「设置单元格格式」→「保护」，确认「锁定」未被强制勾选。

代码优化建议 #

即使解决了工作簿环境问题，你的原始代码存在正向循环漏删行的隐患（删除一行后，下一行会向上移动，循环变量j会跳过该行），建议修改为反向循环：

优化后的代码 #

Sub PetitTas()
    Dim deb As Date
    Dim wbTech As Workbook
    Dim wbAgence As Workbook
    Dim wsAgence As Worksheet
    Dim Agence As String
    Dim i As Integer
    Dim lastRow As Long
    Dim j As Long
    
    deb = Now()
    ' 直接引用工作簿，避免Activate的不确定性
    Set wbTech = Workbooks("dimensionnement technos 2")
    
    For i = 2 To 2
        Agence = wbTech.Sheets(1).Cells(i, 24).Value
        Set wbAgence = Workbooks.Open("C:\Users\QNS691\Documents\Excel\par agence 2\" & Agence & ".xlsx")
        Set wsAgence = wbAgence.Sheets(1) ' 目标工作簿仅一个工作表
        
        ' 获取最后一行行号
        lastRow = wsAgence.Cells(wsAgence.Rows.Count, 1).End(xlUp).Row
        
        ' 反向循环删除，避免漏删
        For j = lastRow To 2 Step -1
            If wsAgence.Cells(j, 14).Value = 0 Then
                wsAgence.Rows(j).EntireRow.Delete
            End If
        Next j
        
        wbAgence.Close SaveChanges:=True
        ' 释放对象
        Set wbAgence = Nothing
        Set wsAgence = Nothing
    Next i
    
    MsgBox "开始时间: " & deb & vbCrLf & "结束时间: " & Now()
End Sub

优化点说明 #

• 避免使用Activate，直接通过对象引用操作工作表/单元格，减少激活带来的上下文错误
• 反向循环删除行，确保每一行都被检查到，不会因为行上移而漏删
• 明确声明变量类型，提升代码稳定性和可读性

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