别人问我的，我不会，想在I2单元格编辑一函数公式，然后下拉

=SUMPRODUCT((LOOKUP("座",$G$2:G2)=$A$2:$A$13)*($B$1:$E$1=H2),$B$2:$E$13)

=INDEX($B$2:$E$13,MATCH(LOOKUP("座",$G$2:G2),$A$2:$A$13,),MATCH(H2,$B$1:$E$1,))

=INDEX($B$2:$E$13,INT(ROW(A4)/4),MOD(ROW(A4),4)+1)

Sub 问题()
Dim arr, r, a
r = 2
For a = 2 To Cells(Rows.Count, 2).End(xlUp).Row
arr = Range("b" & a, "e" & a)
Cells(r, "i").Resize(4, 1) = Application.Transpose(arr)
r = Cells(Rows.Count, "i").End(xlUp).Row + 1
Next
End Sub