VBA Error 1004：Range类Delete方法执行失败求助

我在处理数万行数据的Excel VBA宏时，再次碰到Error 1004: Range类的Delete方法执行失败。之前的简单场景解决方案无法适配当前复杂子过程，具体情况如下：

• 从宏工作簿owb获取Agence名称，打开目标文件；
• 遍历RngDate范围，用Union收集所有2021年7月1日前的单元格到Poubelle范围，执行Poubelle.EntireRow.Delete完全正常；
• 但遍历RngClient范围时，为每个客户嵌套遍历RngFact范围匹配对应账单，同样用Union收集到Poubelle后执行删除，直接触发Error 1004。

已定位到触发错误的Delete代码行，核心代码片段如下：

' 正常工作的日期筛选删除逻辑
Dim RngDate As Range, CellDate As Range, Poubelle As Range
Set RngDate = wsData.Range("A2:A" & wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row)
For Each CellDate In RngDate
    If CellDate.Value < DateSerial(2021, 7, 1) Then
        If Poubelle Is Nothing Then
            Set Poubelle = CellDate
        Else
            Set Poubelle = Union(Poubelle, CellDate)
        End If
    End If
Next CellDate
If Not Poubelle Is Nothing Then Poubelle.EntireRow.Delete

' 触发错误的客户-账单匹配删除逻辑
Dim RngClient As Range, CellClient As Range
Dim RngFact As Range, CellFact As Range
Set RngClient = wsClient.Range("B2:B" & wsClient.Cells(wsClient.Rows.Count, "B").End(xlUp).Row)
Set RngFact = wsFact.Range("C2:C" & wsFact.Cells(wsFact.Rows.Count, "C").End(xlUp).Row)

For Each CellClient In RngClient
    ' 嵌套遍历账单范围匹配客户
    For Each CellFact In RngFact
        If CellFact.Value = CellClient.Value Then
            If Poubelle Is Nothing Then
                Set Poubelle = CellFact
            Else
                Set Poubelle = Union(Poubelle, CellFact)
            End If
        End If
    Next CellFact
Next CellClient
If Not Poubelle Is Nothing Then Poubelle.EntireRow.Delete ' 此行触发Error 1004

可能的原因及解决方案 #

1. 跨工作表/工作簿的Union范围问题
   若RngClient和RngFact属于不同工作表/工作簿，Union会生成跨表范围，而EntireRow.Delete无法直接删除跨表的整行。

   • 解决：确保Poubelle中的所有单元格都来自同一工作表，或者按工作表拆分Poubelle后分别执行删除。

2. Poubelle变量未重置
   两次删除逻辑共用同一个Poubelle变量，第一次删除后未执行Set Poubelle = Nothing，会导致第二次Union时包含已被删除的无效单元格引用。

   • 解决：在客户-账单匹配逻辑开始前，添加Set Poubelle = Nothing，清空变量残留的无效引用。

3. 嵌套遍历的范围引用失效
   遍历RngFact时，若之前的操作（比如其他删除动作）导致RngFact的行号发生变化，会使CellFact引用无效。

   • 解决：改为从下往上遍历范围（避免行删除后索引错乱），或者先将RngFact的值存入数组再遍历匹配。示例：

     ' 从下往上遍历RngFact
     For i = RngFact.Rows.Count To 1 Step -1
         Set CellFact = RngFact.Cells(i)
         ' 匹配逻辑...
     Next i
     

4. 工作表保护或锁定单元格
   若目标工作表处于保护状态，或待删除行包含锁定单元格，会触发Delete权限错误。

   • 解决：删除前临时解除保护，完成后重新保护：

     wsFact.Unprotect Password:="yourpassword" ' 替换为实际密码，无密码则省略参数
     If Not Poubelle Is Nothing Then Poubelle.EntireRow.Delete
     wsFact.Protect Password:="yourpassword"
     

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