excel行转列(excel行转列快捷键)

'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式。

Function转换(aAsRange,fAsString,gAsString)。

ForI=2Toa.Cells(2,1).End(xlDown).Row。

Forj=2Toa.Columns.Count。

Ifa.Cells(I,j)<>""Then。

b=b&""&a.Cells(I,j)。

c=c&""&a.Cells(I,1)。

EndIf

Next

d=Split(c,"")。

e=Split(b,"")。

Ifg=1Then转换=d(f)

Ifg=2Then转换=e(f)

EndFunction

输入公式下拉右拉

excel行转列快捷键

只需要复制，粘帖的时候选择性粘帖，选择“转置”即可，废话不多说，直接上例子：

方法/步骤

将上面的表格变成下图的样子，只需要选定上面的表格，然后ctrl+C复制。

选定一个空单元格后，右键选择性粘帖，在弹出的框里选择“转置”（在下图红圈里）：

下图为点确定后的效果，实现了横行变竖列：

同理，竖列变横行也是同样的操作。