excel 列转行
发布网友
发布时间：2022-03-24 14:47
共5个回答
懂视网
时间：2022-03-24 19:08
产品型号：ASUS S340MC
系统版本：Windows 10
软件版本：Microsoft Office Excel 2019
excel列转行只需要复制再选择性粘贴即可，具体操作方法如下：
1、首先打开Excel表格，选择需要复制的数据。
2、然后鼠标右键点击，选择弹窗中复制选项。
3、接着右键点击空白表格，再选择选择性粘贴。
4、最后勾选转置，点击确定即可。
总结
1、首先打开Excel表格，选择需要复制的数据。
2、然后鼠标右键点击，选择弹窗中复制选项。
3、接着右键点击空白表格，再选择选择性粘贴。
4、最后勾选转置，点击确定即可。
热心网友
时间：2022-03-24 16:16
Sub abc()
Dim i As Long, j As Integer, k As Integer
Dim rows As Long, d1 As String
Sheets(1).Select
rows = ActiveSheet.UsedRange.rows.Count
i = i + 1
While i < rows
d1 = Cells(i, 1).Value
j = j + 1
k = 1
Sheets(2).Cells(j, k).Value = d1
While Cells(i, 1).Value = d1
k = k + 1
Sheets(2).Cells(j, k).Value = Cells(i, 2).Value
i = i + 1
Wend
Wend
End Sub
热心网友
时间：2022-03-24 17:34
在D2输入公式
=INDEX(A:A,SMALL(IF(MATCH($A$2:$A$20000&"",$A$2:$A$20000&"",0)=ROW($A$2:$A$20000)-1,ROW($A$2:$A$20000),4^8),ROW(A1)))&""
数组公式，按CTRL+SHIFT+回车三键确定输入,鼠标移到单元格右下角,当出现一个黑色小十字时，同时按住鼠标左键往下拖动
然后在E1输入公式
=INDEX($B:$B,SMALL(IF($A$2:$A$20000=$D2,ROW($A$2:$A$20000),4^8),COLUMN(A1)))&""
数组公式，按CTRL+SHIFT+回车三键确定输入,鼠标移到单元格右下角,当出现一个黑色小十字时，同时按住鼠标左键往右拖动，再往下拖动
就会得出你想要的效果
热心网友
时间：2022-03-24 19:09
1：如果上面的两列是AB 两列，那么先提取出A B C这样的项目
在C1输入
=IF(SUM(1/COUNTIF($A$1:$A$100,$A$1:$A$100))>=ROW(A1),INDEX($A$1:$A$100,SMALL(IF(ROW($A$1:$A$100)=MATCH($A$1:$A$100,$A$1:$A$100,0),ROW($A$1:$A$100),"0"),ROW(A1))),"END") 公式用CTRL+SHIFT+ENTER结束
公式当中的$A$1:$A$100 这个“100”一定要是准确的最后一个单元格
2：D1输入
=IF(COLUMN(A1)<=COUNTIF($A:$A,$C1),OFFSET($A$1,MATCH($C1,$A$1:$A$100,0)-2+COLUMN(A1),1),"")
公式往下往右拉就行了
热心网友
时间：2022-03-24 21:00
