用excel制作运动员竞赛分组表

提供另外一种方法，公式+VBA结合： 根据上图设置公式后，剩下的工作交由VBA来做，让工作表不停计算，只要单元格F6 =1且F7=0，就找到符合条件的分组了，然后输出结果（在19行以下）。其中组1、组2、组3人数满足有其中有两个6即可，到时再手动调整一下组序就行了。 Sub sss() a = 19 For i = 1 To 10000 z1 = "组1:": z2 = "组2:": z3 = "组3:" If Cells(6,