VBA 如何实现数组相减，也就是数组的补集

最新推荐文章于 2025-03-30 07:05:35 发布

奔跑的犀牛先生

最新推荐文章于 2025-03-30 07:05:35 发布

阅读量2.3k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/xuemanqianshan/article/details/103634092

数组相减

代码1 也是有问题的，因为filter 不支持精确匹配，而是模糊查询，所以会过滤掉不该过滤的

Sub charlsezhang2()

arr1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)
arr2 = Array(1, 3, 5, 7, 9)

'想得到一个减去的数组
'据说不适合删数组的元素----  写个自定义的 删除函数？
'这个是利用筛选后，生成1个新的数组



For Each j In arr2
    arr3 = VBA.Filter(arr1, j, False)
    arr1 = VBA.Filter(arr1, j, False)
Next
Debug.Print Join(arr3)
Debug.Print Join(arr1)


'For Each i In arr1
'   Debug.Print i
'Next


End Sub