怎么写个VBA程序求交集

1，建立字典dict分别记录数字和出现组别的次数：key+value=字符数字+组数，类似下图的表格内的数据记录；

字典根据提供表格数字分组保存的数据

2、利用嵌套双循环分别循环1（外）组别，循环2（内）组内数字，分别对比字典是否存在同一数字，if dict.exist(xx) then dict(xx)=dict(xx)+1记录分别每个数字出现过的组的次数；xx表示某个数字

3、新的循环在字典中，判断dict(xx).value=6的数字，就是组1~组6的交集。分别列入N列相应单元格。

定义两个数组存放这两个集合，再定义一个数组存放它们的集合，用类似冒泡排序的算法，遍历数组1中的第一个元素和数组2中每一个元素，若有相同的，则把这个元素放入第三个数组，继续遍历，知道数组1遍历完所有元素，那数组3中的元素，即为两个数组(集合)的交集。

---