如何在excel2007中實現將多行數據按固定數量為一組進行拆分？

這個寫點代碼就可以了A列5000數據，100個一組共50組，暫定從B1開始安排50行dim i,j as integerdim n as integer '分組數n=100 '暫定100一組i=1for i=1 to 5000j=i mod nif j=0 thenj=nendifme.cells(int(i/n)+1,j)=me.cells(i,1) '把值按行排列，100個一行next i'其中me代表本表格，如果要寫入其他表格，只需把me換成表名字就可以了，比如一般的sheet1，sheet2等等。