工作表按顺序排名

zhangwei2412

如图所示，工作表有很多数字开头的，从1开始，2,3,4，，，，等等很多。

想要的结果：只按照顺序排列数字开头的工作表，其他工作表的位置不变。

试过有些excel插件，按照数字排序，那些中文名的工作表都排到后面了。
这些插件都是全局排序，不能局部排序。

liulang0808

请楼主上传附件，结合附件举例说明需求

zhangwei2412

liulang0808 发表于 2018-5-24 07:30
请楼主上传附件，结合附件举例说明需求

台账.rar (13.23 KB, 下载次数: 2)

2018-5-24 07:50 上传

点击文件名下载附件

zhangwei2412

台账.rar (13.23 KB, 下载次数: 5)

2018-5-24 07:51 上传

点击文件名下载附件

zhangwei2412

liulang0808 发表于 2018-5-24 07:30
请楼主上传附件，结合附件举例说明需求

已上传，要求已写

liulang0808

code......

liulang0808

f附件内容供参考。。。。。。

zhangwei2412

liulang0808 发表于 2018-5-24 08:07
f附件内容供参考。。。。。。

ok，谢谢版主。

zhangwei2412

liulang0808 发表于 2018-5-24 08:07
f附件内容供参考。。。。。。

实际工作表没有要求这张表。
我改了里面的要求，改成合同模板，就可以了。

多谢版主

chxw68

1. Sub test()
   
2.   Dim i%, r%
   
3.   Dim arr()
   
4.   Dim ws As Worksheet
   
5.   m = 0
   
6.   For Each ws In Worksheets
   
7.     If IsNumeric(ws.Name) Then
   
8.       m = m + 1
   
9.       ReDim Preserve arr(1 To m)
   
10.       arr(m) = Val(ws.Name)
    
11.     End If
    
12.   Next
    
13.   For i = 1 To UBound(arr) - 1
    
14.     p = i
    
15.     For j = i + 1 To UBound(arr)
    
16.       If arr(p) > arr(j) Then
    
17.         p = j
    
18.       End If
    
19.     Next
    
20.     If p <> i Then
    
21.       temp = arr(i)
    
22.       arr(i) = arr(p)
    
23.       arr(p) = temp
    
24.     End If
    
25.   Next
    
26.   For i = 1 To UBound(arr)
    
27.     Worksheets(CStr(arr(i))).Move after:=Worksheets(Worksheets.Count)
    
28.   Next
    
29. End Sub
    

复制代码