Question

excel数据太长1万行怎么分成10份，一份1000……如图做示范，谢谢啦～

Answer 1

在B1单元格输入一个数字1，然后选择B列，再按菜单项——开始——填充（该按键一般在∑按钮下面的）——系列——（步长为1，终止值：1000），确定后，在B列就是1－1000号的序号了。
然后，在B1单元格输入公式：
=INDIRECT("A"&(1000*(COLUMN(A1)-1)+ROW(A1)))。
或者是公式：=OFFSET($A$1,1000*(COLUMN(A1)-1)+ROW(A1)-1,0,1,1)
复制并下拉至1000行，完成1-1000个数据
从B1向右复制到K1单元格，再选中C1-K1单元格区域，将鼠标移至K1单元格右下角，等出现小黑的十字形状时，双击鼠标，就会把10000号的数据全部复制到C1-K1000单元格区域了。
最后是选择C-K区域，复制后右键——选择性粘贴——数值，确定后即可处理B-K这10列的数据了，以逐个新建记事本的方式建立10个文件，复制每一列到每一个新的记事本中，即大功告成

Answer 2

你要分10列还是10个工作表？

追问

分成10列，然后我再把它分成10个文件夹，存在记事本里面

分成10列，然后我再把它分成10个文件夹，存在记事本里面

追答

10个文件夹?

追问

恩，就分成10列就好了

追答

Sub s()
arr = [a1].Resize(Cells(Rows.Count, 1).End(3).Row)
[a1].Resize(Cells(Rows.Count, 1).End(3).Row).ClearContents
x = 1
y = 1
For i = 1 To UBound(arr)
Cells(x, y) = arr(i, 1)
x = x + 1
If x > 1000 Then x = 1: y = y + 1
Next
End Sub