在G2单元格输入以下公式,然后向右向下填充公式
=OFFSET($A$2,INT((COLUMN(A1)-1)/5)+(ROW(A1)-1)*3,MOD(COLUMN(A1)-1,5))
详见附图
需要vba来弄