UNIQUE函数通常用来返回列表或范围中的一系列唯一值，也就是过滤掉重复值。我们可以利用 UNIQUE 函数 与 FILTER 函数的组合进行深度筛选，但在Excel2021以上版本才会提供该函数，在低版本的Excel中我们可以使用VBA创建一个自定义函数来模仿高版本Excel的UNIQUE函数的功能。以下是一个简单的VBA函数，它接受一个范围作为参数，返回一个删除了重复值后的数组。
Option Explicit
Function mUnique(rng As Range) As VariantDim dict As ObjectSet dict = CreateObject("Scripting.Dictionary")Dim cell As Range' 遍历范围中的每个单元格For Each cell In rngIf Not dict.Exists(cell.Value) And cell.Value <> "" Thendict.Add cell.Value, NothingEnd IfNext cell' 将字典键（唯一值）存储到数组中mUnique = dict.Keys
End Function要使用这个函数，你可以在Excel的VBA编辑器中插入这段代码（通过按下Alt + F11），然后在Excel表中像使用任何其他函数一样使用它。例如，如果你有一个名为"MyRange"的单元格范围，包含了一些可能的重复值，你可以在另一个单元格中使用这样的公式“=mUnique(MyRange)”，这将返回一个下一行并且列数与原范围相同的区域，其中包含了删除重复项后的值。
由于低版本Excel不支持自动输出数组，所以如果要输出数组，不能直接在一个单元格中输入公式，而应该同时选中多个单元格（水平方向），然后再输入公式并按“Ctrl+Shift+Enter”三键结束，如果不确定数组的值有多少个，可以多选一些单元格，此时可能会输出一部分错误值的单元格，因为数组不支持部分删除，所以要删除错误值必须将所选的数组范围全部清除，然后再按正确的个数来重新选择使用公式的范围，并按照上面的步骤重新输入公式。
如果要将水平数组变成垂直数组，可以在公式前面加上转置函数transpose，选择输入公式的范围就要按垂直方向选，其他操作方法不变。
