[已解决]请问各位朋友，如果对一列数据分别进行升序排列？？？

七秒记忆的小鱼

请问各位牛人，我有一列153600行的数据，想要每1200行进行升序排列，如何能实现呢？如果手动升序排列，要128次，太多了，有没有简便一点儿的方法呢？谢谢各位牛人朋友，希望能得到您的帮助，万分感激！！！！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-22 12:43

1. Sub Macro1()
   
2. Dim arr, i&
   
3. arr = Range("a1").CurrentRegion
   
4. For i = 1 To UBound(arr) Step 1200
   
5.     Cells(i, 1).Resize(1200).Sort Cells(i, 1), Header:=xlGuess
   
6. Next
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, i&
   
3. arr = Range("a1").CurrentRegion
   
4. For i = 1 To UBound(arr) Step 1200
   
5.     Cells(i, 1).Resize(1200).Sort Cells(i, 1), Header:=xlGuess
   
6. Next
   
7. End Sub
   

复制代码

dsmch

………………

tgydslr

dsmch 发表于 2014-4-22 12:43

神了

七秒记忆的小鱼

dsmch 发表于 2014-4-22 12:45
………………

太谢谢你了，不过这个程序我应该怎么运行呢？

七秒记忆的小鱼

七秒记忆的小鱼 发表于 2014-4-22 13:46
太谢谢你了，不过这个程序我应该怎么运行呢？

不好意思，我从来没有用过VBA代码，网上搜了也没有找到你说的按钮之类的

七秒记忆的小鱼

dsmch 发表于 2014-4-22 12:45
………………

不好意思，之前一直没有下下来，现在看到按钮了，不过点了好像没有什么反应

七秒记忆的小鱼

七秒记忆的小鱼 发表于 2014-4-22 14:34
不好意思，之前一直没有下下来，现在看到按钮了，不过点了好像没有什么反应

谢谢你的耐心解答