VBA调用RemoveDuplicates非指定范围报错的技术问询

咱先拆解下为啥会出现这个错误：

• 你用ActiveSheet.Range("C3","G20").RemoveDuplicates能正常运行，是因为你明确指定了Range对象，而RemoveDuplicates是Range对象的专属方法。
• 至于ActiveSheet.Selection.RemoveDuplicates或者ActiveSheet.selRange.RemoveDuplicates出错，原因有两个：
  1. ActiveSheet.selRange这种写法完全错误——selRange是你自己定义的变量，它不属于ActiveSheet的属性，VBA找不到这个对象属性，自然报错438。
  2. 直接用Selection的时候，Selection不一定是Range对象（比如用户可能选中了形状、图表或者其他控件），这时候调用只有Range才有的RemoveDuplicates方法，就会触发“对象不支持此属性或方法”的错误。

靠谱的解决方案 #

方案1：正确使用自定义Range变量

先把选中区域赋值给变量，先判断选中的是否为Range对象，再调用方法：

Dim selRange As Range
' 先确认选中的是Range类型，避免非Range对象导致错误
If TypeName(Selection) = "Range" Then
    Set selRange = Selection
    selRange.RemoveDuplicates Columns:=Array(1), Header:=xlNo
End If

方案2：直接处理Selection（带类型校验）

如果不想用额外变量，也可以直接对Selection做类型判断后执行：

If TypeName(Selection) = "Range" Then
    ' 把Selection转为Range对象再调用方法
    Dim targetRng As Range
    Set targetRng = Selection
    targetRng.RemoveDuplicates Columns:=Array(1), Header:=xlNo
End If

核心要点就是：确保你调用RemoveDuplicates的对象是合法的Range对象，同时不要错误地通过工作表对象去引用自定义变量。

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