请教：有没有办法可以按照本班性别人数均衡分组？

wtqzhjb

求教各位大师：怎样实现本班同一性别均衡分组？（具体见附件）
要求：对于本班的男生、女生各自总人数
1、如果刚好可以分成8-10人一组，则按照以上数分组1,2,3……，且男女生组号相继（如男生只有1组，那么女生第一组编号就是2组，反之亦然）；
2、如果不能被8-10任何整数整除，则按照余数最小的方案分组，本班本性别最后一组人数为 除数+余数。
谢谢各位，新年快乐，万事如意，辛苦大家了！

wtqzhjb

换句话说，就是能用8、或9、或10人一组任一方案（或三者结合）刚好分完这一性别的学生，就采用这一方案；如果都不行，采用8,9，10人一组任意方案中余数最少的方案，然后本班本性别剩余人员与上一组本性别人员合并为一组即可

wtqzhjb

各班内组序号从1开始，男生组女生组组序号连续

wtqzhjb

求教，谢谢大家

wtqzhjb

本性别剩余人员与本班同一性别上一组（最后一组）合并为一组

wtqzhjb

比如，男生21人按照10人一组，第二组就是11人，因为剩一人

一把小刀闯天下

'人数<8直接输出为一组，否则按8-10余数最小分组，，，

Option Explicit

Sub test()
  Dim arr, i, j, k, kk, a, b, m, n, p, cnt
  arr = [a1].CurrentRegion.Offset(1)
  ReDim brr(1 To UBound(arr, 1), 20)
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If arr(j, 1) <> arr(j + 1, 1) Then
        For a = i To j
          For b = a To j
            If arr(b, 1) <> arr(b + 1, 1) Or arr(b, 2) <> arr(b + 1, 2) Then
              If b - a + 1 >= 8 Then
                n = (b - a + 1) Mod 8: p = 8
                For k = 9 To 10
                  If (b - a + 1) Mod k < n Then p = k: n = (b - a + 1) Mod k
                Next
              Else
                n = 0: p = (b - a + 1)
              End If
              For k = a To b - n Step p
                m = m + 2: cnt = cnt + 1: brr(m - 1, 0) = "组别：" & cnt
                For kk = k To k + p - 1
                  brr(m - 1, kk - k + 1) = arr(kk, 1)
                  brr(m, kk - k + 1) = arr(kk, 2)
              Next kk, k
              If n > 0 Then
                For k = b - n + 1 To b
                  brr(m - 1, k - (b - n + 1) + 1 + p) = arr(k, 1)
                  brr(m, k - (b - n + 1) + 1 + p) = arr(k, 2)
                Next
              End If
              a = b: Exit For
            End If
        Next b, a
        i = j: cnt = 0: Exit For
      End If
  Next j, i
  [d1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

wtqzhjb

一把小刀闯天下 发表于 2019-2-12 07:16
'人数= 8 Then
                n = (b - a + 1) Mod 8: p = 8
                For k = 9 To 10

谢谢大师兄！厉害了

wtqzhjb

一把小刀闯天下 发表于 2019-2-12 07:16
'人数= 8 Then
                n = (b - a + 1) Mod 8: p = 8
                For k = 9 To 10

师兄，能不能这样改一下，直接把各班男生女生的组序号，填写在指定的列即可？（位置变了）谢谢你，麻烦你了哦

yjh_27

wtqzhjb 发表于 2019-2-11 22:34
换句话说，就是能用8、或9、或10人一组任一方案（或三者结合）刚好分完这一性别的学生，就采用这一方案；如 ...

15人是1组15人。还是2组8、7人？