EXCEL如何将多行转成多列

具体操作步骤如下：

1. 打开excel表格。

2. 将需转成列的数据全部选中，再先后按住Ctrl+C键。

3. 点击需粘贴列的单元格，点击鼠标右键，在下拉的选项中选择“选择性粘贴”。

4. 在弹出的窗口中点击“转置”，最后点击“确定”即可。

   
   

   

e1=a31，拖到h1，接着往下拖到h30
i1=a61，拖到l1，接着往下拖到l30
删掉a31:d90，ok?

试试这个
本程序需要把要变换的数据命名为"数据"(数据区的列数可以任意,不一定是5)方法:选中该区域,在名称框内输入"数据"即可,然后按程序要求输入每行要填的数据行的数目.
按照你的说明,90行分成3列保存,即在弹出的行数里输入3即可..

Sub 转换()
Dim numcol As Integer
Dim numrow As Long
Dim i As Long
Dim x As Integer
Dim numperrow As Integer
numperrow = InputBox("请输入每行要填的数据行的数目:")
Range("数据").Select
numrow = Selection.Rows.Count '数据区的行数
numcol = Selection.Columns.Count '数据区的列数
x = numperrow * numcol
Range("a1").Select
For i = 1 To numrow '以数据的每一行为单位进行剪切
Range("数据").Rows(i).Cut
ActiveSheet.Paste
Selection.Offset(, numcol).Select
If (i Mod numperrow) Then '判断是否要换行
Else: Selection.Offset(1, -x).Select
End If
Next i
End Sub
'本程序需要把要变换的数据命名为"数据"(数据区的列数可以任意,不一定是5)方法:选中该区域,在名称框内输入"数据"即可,然后按程序要求输入每行要填的数据行的数目

点击A1
运行下面的宏
Sub x()
For i = 0 To 2
For j = 0 To 3
For k = 0 To 29
ActiveCell.Offset(k, (i + 1) * 4 + j + 1) = ActiveCell.Offset(i * 30 + k, j)
Next k
Next j
Next i
End Sub

复制-选择性粘贴-转置