为何动态数组变量传入Range.RemoveDuplicates失效？如何解决？

问题描述 #

在Excel VBA中，直接传递数组表达式（如RemDuplicates1）或通过函数返回数组（如RemDuplicates2）给Range.RemoveDuplicates()方法时可以正常运行，但传递存储数组的Variant变量（如RemDuplicates3）时方法会失效。测试代码如下：

Option Base 0
 
' Test environment:
' Microsoft® Excel® for Microsoft 365 MSO (Version 2303 Build 16.0.16227.20202) 64 Bit
' Windows 10 64 Bit

' Selection is of type Range

Sub RemDuplicates1()
    ' This works.
    Selection.RemoveDuplicates Array(1, 2)
End Sub

Sub RemDuplicates2()
    ' This works.
    Selection.RemoveDuplicates ReturnArray
End Sub

Function ReturnArray()
    ReturnArray = Array(1, 2)
End Function

Sub RemDuplicates3()
    ' This does not work.
    Dim Arr
    Arr = Array(1, 2)
    Selection.RemoveDuplicates Arr
End Sub

原因分析 #

执行差异的核心是VBA对参数类型的解析逻辑不同：

• 直接传递Array(1,2)时，该表达式会被VBA直接解析为Variant类型的一维数组，完全匹配RemoveDuplicates方法Columns参数的要求（参数定义为Optional ByVal Columns As Variant，期望接收整数数组）。
• 在RemDuplicates3中，Arr是未指定类型的Variant变量，赋值后它的实际类型是Variant/Variant()（即一个包裹着数组的Variant容器）。当传递这个变量给方法时，内部会将其识别为单一的Variant值，而非数组，因此无法正确解析要去重的列，最终导致方法失效。

解决方法 #

方法1：明确声明数组变量类型 #

将变量声明为Variant()类型（一维Variant数组），而非通用的Variant变量：

Sub RemDuplicates3_Fixed()
    Dim Arr() As Variant
    Arr = Array(1, 2)
    Selection.RemoveDuplicates Arr
End Sub

方法2：传递时强制解析数组 #

通过括号将变量包裹，强制VBA将其解析为数组传递：

Sub RemDuplicates3_Fixed2()
    Dim Arr
    Arr = Array(1, 2)
    Selection.RemoveDuplicates (Arr)
End Sub

方法3：使用Call语句调用方法 #

使用Call语句时，参数必须用括号包裹，此时VBA会正确解析数组：

Sub RemDuplicates3_Fixed3()
    Dim Arr
    Arr = Array(1, 2)
    Call Selection.RemoveDuplicates(Arr)
End Sub

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