>>672です
>>677さんに教えて頂いたループの一番内側でIf文を書いたら、
>>679さんのおっしゃる通り、確かにｳﾁのPCでは192秒も掛かりました。
だもんで、各ループに入って直ぐIf文で重複チェックに変え、
orを使わず条件を分けたりして、今の所、>>709のようにCase Select使って5.57秒になりました。
これでもまだ無駄が多い様な気がしますが、とにかく動きました。
ありがとうございます。

>>704さん
+1ずつ加算していく方法の参考になりました。ありがとうございます。
でも、ちょっと頭で考えただけでも0〜7のループより時間掛かりそうなので、
今回の自分のには合わなそうですね。