去重函数UNIQUE在office 365或office2019中已经成为内置函数,更低版本的excel中没有自带函数,用数组函数通过多层嵌套实现既麻烦又难理解,而vba的字典刚好符合去重的元素,实现起来比较简单,代码如下: FunctionUNIQUE(ParamArraystr()AsVariant)DimelmAsVariant,elm2AsVariantDimdAsObjectSetd=CreateObject("scripting.dictionary"...
VBA函数可以返回数组，例子代码：执行效果：