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

试下

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com