求编写一个排队程序

eastigersd

一共6*5（N=6的倍数）个人，编号为1-30 ,要求编排每局为6人的够级编队，每轮5个队伍（30人分5个队伍参赛），其中1、3、5和2、4、6分别为一个联邦 对战。1-4、2-5、3-6分别为对门。
    要求：1、6N个人在若干局中，任意三人（甲、乙、丙）只能一次作为联邦
             2、任意两个人（甲、乙），只能对门一次
             3、不能存在任意4人及以上在不同轮次重复出现（即任意4人）
希望高手能用VBA 编写个编队程序
            格式
                             1号位    3号位    5号位    PK  2号位   4号位  6号位
                桌1            1        2          3       pk        4       5         6
                桌2            7        8          9       pk        10      11      12