vba念念要给数组去重，不错通过取得数组里的一个元素放入新数组，之后用Filter函数将原数组里的换取称号元素剔除软件开发资讯，再索求下一个元素再剔除，轮回重叠直至原数组为空，这么得到的新数组等于剔除重叠值后的数组。

以下例如用vba给数组【"番茄", "香蕉", "小番茄", "香蕉", "番茄", "提子"】去除重叠值：

上期龙头05，龙头最近10期分别是06 04 02 01 03 07 03 03 01 05，奇偶比为7：3，综合分析，本期龙头参考：03。

赛后，阿根廷队核心梅西接受了媒体采访。他表示：“这届美洲杯的比赛条件非常艰难，场地状况不佳，气温也很高。但我现在正在尽情享受自己职业生涯中的最后一届美洲杯，就像当初享受最后一届世界杯一样，这是我最后的战斗！”

联系我们")   '用“，”串联数组所有元素查看结果
End Sub" cm-theme="neo" cm-mode="VB.NET">Sub 数组去重()
arr1 = Array("番茄", "香蕉", "小番茄", "香蕉", "番茄", "提子")  '待去重数组
Dim arr2() As Variant      '莳植动态数组，看成去重后数据存放的数组
iCounter = 0    '“去重数组”的待用下标
aa = "@" '第一种稀奇字符
bb = "#" '第二种稀奇字符

arr1 = Split(bb & Join(arr1, bb & aa & bb) & bb, aa)    '给“待去重数组”数组里通盘元素前后添加“#”
Do
    element = arr1(0)     '取得“待去重数组”里的第一个元素
    ReDim Preserve arr2(iCounter)       '重新界说动态数组大小
    arr2(iCounter) = element       '给“去重数组”添加该元素
    iCounter = iCounter + 1
    arr1 = VBA.Filter(arr1, element, False)    '“待去重数组”剔除通盘element元素
Loop While Join(arr1, "") <> ""   '当“待去重数组数组”为空时退出轮回

arr = Split(Replace(Join(arr2, aa), bb, ""), aa) '剔除“去重元素存放数组”所稀有组元素中的“#”
MsgBox Join(arr, "，")   '用“，”串联数组通盘元素检讨成果
End Sub

以上代码得到的去重数组等于【"番茄", "香蕉", "小番茄", "提子"】。

需要把稳的是，原数组在进行取得元素放入新数组前，要先对所稀有组元素进行前后加稀奇记号“保护”，原因是Filter函数的筛选是暧昧匹配，念念要精准匹配就要对数组元素预握住（时刻判辨详见我的著述【VBA用Filter精准匹配筛选或剔除数组元素】），把稳接受的两种稀奇字符必须是在数组元素中莫得出现的记号。在去重轮回放浪后还要对去重后的数组断根预握住时添加的稀奇记号（时刻判辨详见我的著述【VBA去除数组元素中的特定字符串】）。

以上现实对您有匡助不错共享或转藏软件开发资讯，幸免以后找不到。念念要了解更多VBA有关常识，迎接到http://moqingyan.360doc.com我的个东说念主藏书楼检讨。