如何使用源自 WorksheetFunction.Unique() 的值填充数组？

如何解决如何使用源自 WorksheetFunction.Unique() 的值填充数组？

我正在尝试从 ListObject 表中获取一组唯一值。我正在尝试使用 WorksheetFunction 对象的“Unique”方法，但是我遇到了许多错误，但是我尝试编写代码。如何使用 WorksheetFunction.Unique 填充数组？

这是一个伪代码框架：

Dim Ws As Worksheet
Set Ws = Worksheets("Sheet1")

Dim Rng As Range
Dim UniqueArr() As String

Set Rng = Ws.ListObjects("Table").ListColumns(2).DataBodyRange

Set UniqueArr() = WorksheetFunction.Unique(Rng) '--Fill UniqueArr() with these values

在不知道有多少唯一值的情况下，我无法设置数组的大小，但我无法获取唯一值来计算它们。

编辑：

我已经删除了 set 部分，并更改为 variant，现在它可以工作了，但我还有第二个问题。

为什么 UniqueArr() 现在是二维的？要从中获取值，我需要使用 UniqueArr(1,1)，而不是 UniqueArr(1)。