Question

excel中如何将多列竖排长数据每几行一组变成多行横排？

如图

Answer 1

用编程也可以哟

D1=IF(ROW(A1)>6,"",INDEX($A$1:$B$500,ROW(A1),COLUMN(A1)))

右拉，到E1,再下拉

同理

F1=IF(ROW(C1)>6,"",INDEX($A$1:$B$500,MATCH($D1,$A:$A,)+6,COLUMN(A1)))

依次显示A,B列的1-6行

然后 MATCH($D1,$A:$A,)+6,依次根据D列数据+6,就是FG列结果

追问

请问大佬，这种比较多且很长的数据，具体应该输入怎样的公式或代码呢

追答

要用编程

无论行数个数是否一致，都可以

Sub aa()

Dim i, k, x

For i = 2 To Range("a65536").End(xlUp).Row

    x = WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), Cells(i, 1))

    If x = 1 Then

     y = WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1))

     Z = WorksheetFunction.CountA(Range("l2:cz2"))

     Range(Cells(i, 1), Cells(y + i - 1, "j")).Select

     Range(Cells(i, 1), Cells(y + i - 1, "j")).Copy Cells(2, Z + 12)

     End If

     Next

End Sub

Answer 2

d1=INDEX($A:$B,MOD(ROW(A1)-1,6)+ROUNDUP(COLUMN(A1)/2,0)*6-5,MOD(COLUMN(A1)-1,2)+1)右拉下拉

追问

请问大佬，这种比较多且很长的数据，具体应该输入怎样的公式或代码呢

追答

图片看不清，把问题作为内容（游舰主题一定要包含“excel”,本人以此为依据辨别非垃圾游舰，以免误删）,excel样表文件（尽量详细说明现状和目标效果）作为附件发到一流3油香：yqch134帮你看下