@注定孤独终老:
Subcs()DimiAsIntegerForj=1ToSheets("sheet2").[a65556].End(xlUp).RowFori=1ToSheets("sheet2").Cells(j,200).End(xlToLeft).Columnn=n+1Ifi=1ThenCells(n,1)=Sheets("sheet2").Cells(j,i)ElseCells(n,2)=Sheets("sheet2").Cells(j,i)EndIfNextNextEndSub如不会使用,需要原件,可....