用于从范围返回唯一数组的函数

Question

我正在寻找一种方法将内存中的Selection声明为变量'rRange'，我想删除重复项并转换为数组。

我尝试了以下内容：

Function getArray()
  Dim rRange As Range
  Dim newRange As Range
  Dim resultArray() As Variant

  Set rRange = Selection
  newRange = rRange.RemoveDuplicates

  getArray = WorksheetFunction.Transpose(newRange)
End Function

但是我在.RemoveDuplicates部分出现“类型不匹配”错误，我在过去的几个小时里一直在玩这个问题而且无法正确...建议？

Answer 1

RemoveDuplicates不会返回值。调用该方法后，您需要重新计算范围的范围。