多工作表批量删除A列重复项时触发运行时错误1004的问题求助

嘿，我来帮你排查这个运行时错误1004的问题！先把你的代码和遇到的问题理清楚：

你写的批量去重代码如下：

Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer

' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count

' Begin the loop.
For I = 1 To WS_Count
ActiveWorkbook.Worksheets(I).Range("A4:Z1000").RemoveDuplicates Columns:=1, Header:=xlYes
Next I
End Sub

运行时弹出Run-time error 1004 Application-defined or object-defined error，这个错误在VBA操作Excel时很常见，主要和这几个原因有关，咱们逐个排查：

常见触发原因及解决方案 #

• 工作表被保护
  这是最容易踩的坑！如果你的任意一个工作表开启了保护状态，没解除保护就去修改数据（比如删除重复项），直接就会触发1004错误。
  解决办法：可以手动先解除所有工作表的保护，或者在代码里自动处理：

  ' 在操作工作表前加入这段代码（如果工作表有保护密码，就把Unprotect改成ws.Unprotect "你的密码"）
  If ws.ProtectContents Then
      ws.Unprotect
  End If
  

• 目标区域为空或表头不符合要求
  你代码里用了Header:=xlYes，这要求每个工作表的A4:Z1000区域的第一行（也就是A4单元格）是表头。如果某个工作表的这个区域是空的，或者A4不是有效表头，Excel就会报错。
  可以改成让Excel自动判断表头，或者先检查区域是否有数据：

  ' 检查区域是否有内容，避免空区域报错
  If WorksheetFunction.CountA(ws.Range("A4:Z1000")) > 0 Then
      ' 用xlGuess让Excel自动判断是否有表头
      ws.Range("A4:Z1000").RemoveDuplicates Columns:=1, Header:=xlGuess
  End If
  

• 区域内有合并单元格
  RemoveDuplicates方法完全不支持包含合并单元格的区域，如果你的A列或者A4:Z1000范围内有合并单元格，必须先取消合并才能继续操作。

优化后的完整代码 #

结合上面的排查点，我给你调整了代码，更稳健：

Sub WorksheetLoop()
    Dim WS_Count As Integer
    Dim I As Integer
    Dim ws As Worksheet ' 用变量引用工作表，避免Active对象的不确定性
    
    ' 获取当前工作簿的工作表数量
    WS_Count = ActiveWorkbook.Worksheets.Count
    
    ' 遍历每个工作表
    For I = 1 To WS_Count
        Set ws = ActiveWorkbook.Worksheets(I)
        
        ' 处理工作表保护
        If ws.ProtectContents Then
            ws.Unprotect ' 有密码的话改成ws.Unprotect "你的密码"
        End If
        
        ' 检查区域是否有数据，再执行去重
        If WorksheetFunction.CountA(ws.Range("A4:Z1000")) > 0 Then
            ' 让Excel自动判断表头，兼容性更好
            ws.Range("A4:Z1000").RemoveDuplicates Columns:=1, Header:=xlGuess
        End If
        
        ' 可选：如果需要重新保护工作表，打开下面的注释
        ' ws.Protect ' 有密码的话改成ws.Protect "你的密码"
    Next I
    Set ws = Nothing ' 释放变量
End Sub

你可以先试试这个优化后的代码，要是还报错，就检查下有没有合并单元格，或者某个工作表的A4区域是不是有异常内容~

备注：内容来源于stack exchange，提问作者Michael Nares