C1单元格输入公式=IF(ISODD(COLUMN()),INDEX(A:A,180*(COLUMN()-3)/2+ROW()),INDEX(B:B,180*(COLUMN()/2-2)+ROW()))公式往右拉,往下拉,即可。
在另一页里输入=INDEX(Sheet1!$A:$B,ROUNDDOWN((COLUMN()-1)/2,0)*180+ROW(),MOD(COLUMN()-1,2)+1)然后右拉下拉
用vba 吧 我觉得公式不好弄