VBA，去除数组中的空内容

问题：excel的VBA，数组中有空内容，如何去除空

解决：

Set Dic = CreateObject("scripting.dictionary") '创建字典对象

For i = 2 To r2 '将第一列数据添加到字典的key值中

   Dic(CStr(Cells(i, 10))) = ""

Next

Arr = Dic.keys '返回字典key的数组

Set Dic = Nothing '销毁对象

Str = Join(Arr, ",") '将数组中的内容显示为一字符串

MsgBox "可筛选的内容： " & Str

n = UBound(Arr) - LBound(Arr) + 1

MsgBox "个数： " & n

备注：本知识来源于网络并整理