Excel多行多列转成一行多列
发布网友
共2个回答
热心网友
=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
试下
