excel把多列放到一列

我的文件有1万列,每列都是100行,我想把这10000列的内容全部放到A列里面。也就是从图1变成图2,但有一万列。怎么快速放。
图一

图二

VBA!一百万个数据搬家,不光VBA,还得数组!

代码如下。打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。


Sub cl()
Dim i As Long: Dim arr
For i = 2 To 10000
    arr = Cells(1, i).Resize(100, 1)
    Range("A" & i * 100 - 99).Resize(100, 1) = arr
Next
End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  2015-04-03
在首个单元格中输入公式
=OFFSET($A$1,MOD(ROW(A100),100),INT(ROW(A100)/100)-1)
再将公式下拉填充。
第2个回答  2015-04-03
在单元格输入公式:
=OFFSET($A$1,MOD(ROW(A4),4),INT((ROW(A1)-1)/4))
下拉复制
第3个回答  2015-04-03
在A101 输入:

=OFFSET($A$1,IF(MOD(ROW(A1),100)=0,100,MOD(ROW(A1),100))-1,INT((ROW(A1)-0.1)/100))

下拉100W行即可。
第4个回答  2015-04-03
很简单,一个等号就搞定了。在单元格A101输入=B1,然后一直往右拉到1万列,这一行公式全部选中往下拉,直到A列把所有的数据弄完为止。试试吧。不会再问。

记住,你要的数据全在A列,等拉到A列全部出现区域的所有数值,删掉公式,最后删掉其他列就好。
第5个回答  2015-04-03
简单的就是VBA,另外也可以复制行,然后 选择性粘贴-转置 到A列,重复100次,合并内容
相似回答