假如你数据在第一张图上A1:F11，就在同一张表格任一个单元格输入公式 =INDEX($A$3:$F$11,INT((ROW(A3)+2)/5),COLUMN(A3))然后向右拉填充，再向下拉填充，注意因为我不知道你数据范围在那里，所以$A$3:$F$11这个你要做适当的调整，希望你能理解。
G3公式右拉下拉：=INDEX(A:A,(ROW(A1)-1)/5+3,)
VBA
