excel 将多行变成一行

发布网友发布时间：2022-04-22 15:29

我来回答

共3个回答

热心网友时间：2023-07-04 06:30

如果数据很多的话可以使用VBA代码来解决，点击转置为行按钮，会出现“请选择转职的区域”，然后在工作表中选择你的数据，然后确定，完成后会出现“请选择放置的位置”，点击选择后，就将多行转职成为一行。

以下是录制的效果及执行代码

Sub hang()

Dim a, b As Object

Dim n!

Set a = Application.InputBox("请选择要转职的区域", , , , , , , 8)

Set b = Application.InputBox("请选择要放置的位置", , , , , , , 8)

For Each c In a

b.Offset(, n + 1 - 1) = c

n = n + 1

End Sub

在VBA编辑窗口中新建一个模块，将代码复制到模块中，点击执行。

热心网友时间：2023-07-04 06:31

按你贴的图(上面的图为Sheet1,下面的图为Sheet2)：

A1数组公式(★同时按ctrl+shift+enter输入才有效★):
=IF(ROW(A1)>COUNTA(Sheet1!A:A),"",INDEX(Sheet1!A:A,SMALL(IF(Sheet1!$A$1:$A$25<>"",ROW($A$1:$A$25)),ROW(A1))))
向下填充

B1数组公式(★同时按ctrl+shift+enter输入才有效★):
=IF(ROW(A1)=1,IF(MOD(COLUMN(Sheet1!A1),2),Sheet1!$B$1,Sheet1!$C$1)&INT(COLUMN(Sheet1!B1)/2),IF($A1="","",IF(INT(COLUMN(Sheet1!B$1)/2)>IF($A2="",MAX(IF(Sheet1!$B$1:$B$999<>"",ROW($B$1:$B$999))),MATCH($A2,Sheet1!$A:$A,0))-MATCH($A1,Sheet1!$A:$A,0),"",OFFSET(Sheet1!$B$1,MATCH($A1,Sheet1!$A:$A,0)-2+INT(COLUMN(Sheet1!B$1)/2),MOD(COLUMN(Sheet1!B$1),2),,))))
向右、向下填充追问真是牛人啊，我试了，前两个人可以用，第三个人就不行了，公式在，但是没有数，为什么啊？

追答B1数组公式改为普通公式：
=IF(ROW(A1)=1,IF(MOD(COLUMN(Sheet1!A1),2),Sheet1!$B$1,Sheet1!$C$1)&INT(COLUMN(Sheet1!B1)/2),IF($A1="","",IF(ROW(A1)=COUNTA(Sheet1!$A:$A),OFFSET(Sheet1!$B$1,MATCH($A1,Sheet1!$A:$A,0)-2+INT(COLUMN(Sheet1!B$1)/2),MOD(COLUMN(Sheet1!B$1),2),,)&"",IF(INT(COLUMN(Sheet1!B$1)/2)>IF($A2="",MAX(IF(Sheet1!$B$1:$B$999"",ROW($B$1:$B$999))),MATCH($A2,Sheet1!$A:$A,0))-MATCH($A1,Sheet1!$A:$A,0),"",""&OFFSET(Sheet1!$B$1,MATCH($A1,Sheet1!$A:$A,0)-2+INT(COLUMN(Sheet1!B$1)/2),MOD(COLUMN(Sheet1!B$1),2),,)))))

热心网友时间：2023-07-04 06:31

这么乱。每个人的科次不一样多。得编程实现了。