Excel 如何输出一个组的全部数据？

Question

同时有N个小组在比赛，每次都会有成绩，这些成绩都会被记录，想通过一个函数，让每个小组的成绩在表格的另一个位置全部输出，用什么函数合适？效果如截图所示，总记录是混乱的，右边的为每个小组数据分离。
只要函数哈，手动筛选的不合适！

Answer 1

来个函数的

=IFERROR(INDEX($B$1:$C$6666,SMALL(IF($B$1:$B$6666="一组",ROW($B$1:$B$6666),9999),ROW(A1)),COLUMN(A1)),"")

在C2输入公式，按ctrl+shift+回车三键确认

然后向右复制再整体向下复制，即可得到第一组的，第二组表公式中的一组改成二组，以此类推。

效果如下图

追问

如果该组有N列数据时，怎么处理呢？

Answer 2

Sub 分组()
    Dim i, m, n, k As Integer
    Dim rng, reg As Range
        i = Sheets(1).Range("a" & Cells.Rows.Count).End(3).Row
        m = 2
        n = 2
        k = 2
        With Worksheets.Add(after:=Sheets(1))
                             .Name = "组别分类"
                             .Range("a1:f1") = Array("组别", "成绩", "组别", "成绩", "组别", "成绩")
                             
        End With
        For Each rng In Sheets(1).Range("a1:a" & i)
            If rng <> "" Then
            If rng = "一组" Then
               rng.Resize(1, 2).Copy Sheets(2).Range("a" & m)
                   m = m + 1
            ElseIf rng = "二组" Then
                   rng.Resize(1, 2).Copy Sheets(2).Range("c" & n)
                     n = n + 1
            Else
                      rng.Resize(1, 2).Copy Sheets(2).Range("e" & k)
                    k = k + 1
            End If
            End If
        Next
  end sub

Answer 3

透视表咯