excel表中，一列数据有10万个数据，我要按顺序将每5000个数据分成一组

Question

excel表中，一列数据有10万个数据，我要按顺序将每5000个数据分成一组，也就是1-5000为第一组，5001-10000为第二组，。。。。。如何快速实现，谢谢

Answer 1

Sub xx()
n = [a1048576].End(3).Row
For i = 5001 To n
Cells((i - 1) Mod 5000 + 1, Int((i - 1) / 5000) + 1) = Cells(i, 1)
Next
End Sub

追问

这代码在哪里输入。我没有用excel 写过代码。。。

追答

Alt+F11，双击左边的sheet1，在右边粘贴代码，退出，运行宏

本回答被提问者和网友采纳

Answer 2

分很好分的，你打算把分后的数据放哪儿啊？追问

放到txt文档最好，不能实现的话，放到sheet2，sheet3.。。里。

追答

按你说的共10万个数据，每相邻的5000个数据一组要分成20组，假设你的10万个数据在表sheet1中，分组后的数据放表sheet2中，你在sheet2中A1单元格中输入函数命令=INDEX(Sheet1!$A$1:$A$100000,ROW()+5000*(COLUMN(A1)-1),1)，确定，然后先向右拖出20个单元格然后往下拖出5000行就是了。在2003电子表格中共内置了65536行，你怎么说10万行？你用的是2007或更高版本吧！

追问

2010版，我说的十万是少的，其实有47万行！

Answer 3

代码可以快速实现追问

。。。。