VBA！一百万个数据搬家，不光VBA，还得数组！
代码如下。打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
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)
再将公式下拉填充。
=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))
下拉复制
=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行即可。
=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列全部出现区域的所有数值，删掉公式，最后删掉其他列就好。
记住，你要的数据全在A列，等拉到A列全部出现区域的所有数值，删掉公式，最后删掉其他列就好。
第5个回答 2015-04-03
简单的就是VBA，另外也可以复制行，然后 选择性粘贴-转置 到A列，重复100次，合并内容
相似回答