UC知道EXCEL如何将多行转成多列
来源：百度知道 编辑：UC知道 时间：2024/05/17 06:17:05
请教：我有多列内容，比如A1,B1,C1,D1四列，每列行数均为90行。请问如何才能将它们分成多列，比如30行一列。也就是说A1一列为30行，余下的60行再各分成30行，分别放在E1和I1,而B1列数拆分后，同样各自放在F1和J1，C1列拆分G1和K1,D1列拆分H1和L1.谢谢
不是转置。转置达不要这个效果。
Sub abc()
n = Range("A1").End(xlDown).Row
[j1] = n
For i = 2 To Int(n / 40) + 1
For j = 1 To 40
Cells(j, i) = Cells((i - 1) * 40 + j, "A")
Next j
Next i
End Sub
利用这个倒可以，但只是针对单列。我要求多列同时进行，谢谢。
我希望能够通过宏命令解决这一问题。因为数据量很大，通过手工复制粘贴太麻烦，谢谢。
如我希望将表
1 A 人
2 B 和
3 C 我
4 D 大
转换成
1 A 人 3 C 我
2 B 和 4 D 大
不是转置。转置达不要这个效果。
Sub abc()
n = Range("A1").End(xlDown).Row
[j1] = n
For i = 2 To Int(n / 40) + 1
For j = 1 To 40
Cells(j, i) = Cells((i - 1) * 40 + j, "A")
Next j
Next i
End Sub
利用这个倒可以，但只是针对单列。我要求多列同时进行，谢谢。
我希望能够通过宏命令解决这一问题。因为数据量很大，通过手工复制粘贴太麻烦，谢谢。
如我希望将表
1 A 人
2 B 和
3 C 我
4 D 大
转换成
1 A 人 3 C 我
2 B 和 4 D 大
具体操作步骤如下：
打开excel表格。
将需转成列的数据全部选中，再先后按住Ctrl+C键。
点击需粘贴列的单元格，点击鼠标右键，在下拉的选项中选择“选择性粘贴”。
在弹出的窗口中点击“转置”，最后点击“确定”即可。
试试这个
本程序需要把要变换的数据命名为"数据"(数据区的列数可以任意,不一定是5)方法:选中该区域,在名称框内输入"数据"即可,然后按程序要求输入每行要填的数据行的数目.
按照你的说明,90行分成3列保存,即在弹出的行数里输入3即可..
Sub 转换()
Dim numcol As Integer
Dim numrow As Long
Dim i As Long
Dim x