Vba excel条件组合的代码

Question

请帮我解决以下问题。 我目前在excel的列中有以下数据

(1,2)
(1,5)
(2,6)
(3,4)
(3,12)
(4,6)
(4,9)
(4,11)
(6,10)
(7,9)
(7,11)

我想知道如何从上面的列表中找到至少2个项目的所有组合，其中所有项目的数字都是唯一的。例如， {(1,5),(2,6),(3,12),(4,9)}是一个有效的组合，因为该集合中的所有数字都是唯一的，而{(1,5),(2,6),(6,10)}则不是，因为重复了6。请帮忙。

Answer 1

我要做的是：

1. 将所有数据读入数组
2. 对于每个数组元素，将数据读入变量并删除父项。然后id使用拆分将数据分成数组。因此1,2将是array（1）= 1，array（2）= 2。
3. Id然后通过添加这些数据项作为键来使用字典（脚本字典）。这样，您可以使用Exists函数来确定数据是否重复。
4. 重复所有元素。

您可以将结果存储在另一个字典中，或者重新保存变体数组。

放手一搏。

希望有所帮助。