=INDEX($A$1:$E$10,ROUNDUP(COLUMN(A1)/COUNTA($2:$2),0),MOD(COLUMN(A1)+COUNTA($2:$2)-1,5)+1) ,右拉至出现错误位止
Sub AA()
Dim I, X
For I = 2 To Range("A65536").End(xlUp).Row
X = ActiveSheet.UsedRange.Columns.Count
Range(Cells(I, "A"), Cells(I, "e")).Copy Cells(1, X + 1)
Next
End Sub
试下
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024