此前正常的VBA删除重复项代码突然报应用或对象定义错误如何解决

核心报错原因 #

你遇到的“Application-defined or object defined error”报错大概率是运行环境的隐性变化导致RemoveDuplicates方法的执行条件不满足，可按以下顺序排查：

排查步骤 #

• 校验UsedRange有效性
  Excel不会自动刷新UsedRange范围，如果你此前删除过数据区域的行/列，缓存的UsedRange可能包含空单元格或者超出实际数据范围，直接调用方法就会报错。你可以先运行以下代码确认范围：

Debug.Print Worksheets("Assignments").UsedRange.Address

如果输出的范围和实际数据不一致，建议替换原有逻辑，直接用CurrentRegion获取连续数据区域操作，同时也无需提前激活工作表：

Dim dataRng As Range
Set dataRng = Worksheets("Assignments").Range("A1").CurrentRegion
dataRng.RemoveDuplicates Columns:=1, Header:=xlYes

• 检查第一列是否存在合并单元格
  RemoveDuplicates方法不支持处理包含合并单元格的区域，选中第一列查看Excel顶部「合并后居中」按钮是否高亮，如有合并单元格先取消合并再执行代码。
• 确认工作表未被保护
  如果其他协作方给「Assignments」工作表加了编辑保护，所有修改类操作都会触发报错，可到「审阅」选项卡下确认是否需要解锁工作表。
• 适配结构化表操作逻辑
  你提到数据存储在工作表的表格中，如果是Excel的结构化表（ListObject），直接对UsedRange操作容易出现范围识别异常，建议直接指向表格对象操作：

Dim targetTable As ListObject
' 括号内可填表格的实际名称，默认第一个表格填1即可
Set targetTable = Worksheets("Assignments").ListObjects(1)
targetTable.DataBodyRange.RemoveDuplicates Columns:=1, Header:=xlYes

• 清除第一列的错误值
  旧版本Excel的RemoveDuplicates方法遇到#N/A、#VALUE!等单元格错误值时会触发异常，你可以先筛选第一列清除所有错误值后再运行代码。

兼容替代方案 #

如果排查完所有问题仍然报错，可以用字典去重的逻辑替换原有方法，兼容性更强：

Dim dic As Object, dataArr, i As Long
Set dic = CreateObject("Scripting.Dictionary")
With Worksheets("Assignments").Range("A1").CurrentRegion
    dataArr = .Value
    ' 从第2行开始遍历，跳过表头
    For i = 2 To UBound(dataArr)
        If Not dic.exists(dataArr(i, 1)) Then
            dic(dataArr(i, 1)) = ""
        Else
            ' 标记重复行隐藏
            .Rows(i).Hidden = True
        End If
    Next i
    ' 批量删除隐藏的重复行
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

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