[已解决]帮忙排序

丢丢铜

帮忙排序，把数据里的排记录里格式

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-6 11:32

1. Sub aa()
   
2. Dim arr, arr1()
   
3. Dim i As Long
   
4. arr = Range("A3:O" & [A65536].End(xlUp).Row)
   
5. ReDim arr1(1 To UBound(arr) * 2, 1 To 7)
   
6. Sheets("记录表").Range("A2:G" & Sheets("记录表").[A65536].End(xlUp).Row + 1).ClearContents
   
7. For i = 1 To UBound(arr)
   
8. arr1(i * 2 - 1, 1) = arr(i, 1)
   
9. arr1(i * 2 - 1, 2) = arr(i, 3)
   
10. arr1(i * 2 - 1, 3) = arr(i, 7)
    
11. arr1(i * 2 - 1, 4) = arr(i, 8)
    
12. arr1(i * 2 - 1, 5) = arr(i, 9)
    
13. arr1(i * 2 - 1, 6) = arr(i, 14)
    
14. arr1(i * 2 - 1, 7) = arr(i, 15)
    
15. arr1(i * 2, 3) = arr(i, 4)
    
16. arr1(i * 2, 4) = arr(i, 5)
    
17. Next i
    
18. Sheets("记录表").Range("A2").Resize(UBound(arr1), UBound(arr1, 2)) = arr1
    
19. End Sub

复制代码

跳转到最佳答案楼层

雄鹰

使用随手发工具吧。这里有下载的：
www.4008888.com
应该能够帮上你的忙。

雄鹰

雄鹰 发表于 2012-1-6 10:52
使用随手发工具吧。这里有下载的：
www.4008888.com
应该能够帮上你的忙。

不是，我看他的基础不是很好，所以建议他用工具了。

高

这样行不行                  

wp8680

纯函数解法。
放登记表.rar (6.92 KB, 下载次数: 2)

2012-1-6 11:19 上传

点击文件名下载附件

丞相

可以在工具》选项》自定义序列里添加你想要的排序结果，然后排序。

sunjing-zxl

1. Sub aa()
   
2. Dim arr, arr1()
   
3. Dim i As Long
   
4. arr = Range("A3:O" & [A65536].End(xlUp).Row)
   
5. ReDim arr1(1 To UBound(arr) * 2, 1 To 7)
   
6. Sheets("记录表").Range("A2:G" & Sheets("记录表").[A65536].End(xlUp).Row + 1).ClearContents
   
7. For i = 1 To UBound(arr)
   
8. arr1(i * 2 - 1, 1) = arr(i, 1)
   
9. arr1(i * 2 - 1, 2) = arr(i, 3)
   
10. arr1(i * 2 - 1, 3) = arr(i, 7)
    
11. arr1(i * 2 - 1, 4) = arr(i, 8)
    
12. arr1(i * 2 - 1, 5) = arr(i, 9)
    
13. arr1(i * 2 - 1, 6) = arr(i, 14)
    
14. arr1(i * 2 - 1, 7) = arr(i, 15)
    
15. arr1(i * 2, 3) = arr(i, 4)
    
16. arr1(i * 2, 4) = arr(i, 5)
    
17. Next i
    
18. Sheets("记录表").Range("A2").Resize(UBound(arr1), UBound(arr1, 2)) = arr1
    
19. End Sub

复制代码

sunjing-zxl

再传个附件给你把
放登记表-sunjing-zxl.rar (11.72 KB, 下载次数: 3)

2012-1-6 14:53 上传

点击文件名下载附件