分成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