工作表按条件进行排序

yunfei2018

如题，工作表按条件排序，望指点，谢谢！


附件：    工作表排序.zip (34.68 KB, 下载次数: 29)

2019-3-18 18:52 上传

点击文件名下载附件

.

chxw68

1. Sub 工作表排序()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim ws As Worksheet
   
5.   With Worksheets("目录")
   
6.     r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
7.     arr = .Range("c3:c" & r)
   
8.   End With
   
9.   On Error Resume Next
   
10.   For i = UBound(arr) To 1 Step -1
    
11.     Worksheets(arr(i, 1)).Move after:=Worksheets(1)
    
12.   Next
    
13.   On Error GoTo 0
    
14. End Sub
    
15. 
    

复制代码

chxw68

详见附件。

yunfei2018

感谢，经测试，可以实现想要的效果，学习了。

syzengpeng

好用，谢谢了