排序

ddz79101

老师！想重新排序表名，如何。请老师帮忙看看

ddz79101

老师！代码能否不使用在表中单列方法排序

limonet

关键字：ASC

limonet

Sub limonet2()
    Dim i%, y%
    Do
        y = y + 1
        For i = Sheets.Count To 2 Step -1
            If Asc(Right(Sheets(i).Name, 1)) < Asc(Right(Worksheets(Sheets(i).Index - 1).Name, 1)) Then
                Sheets(i).Move before:=Worksheets(Sheets(i).Index - 1)
            End If
        Next i
    Loop Until y = 10
End Sub

ddz79101

limonet 发表于 2024-4-7 14:15
关键字：ASC

谢谢老师！完美！只是y=10表示什么

limonet

ddz79101 发表于 2024-4-7 14:25
谢谢老师！完美！只是y=10表示什么

一次不够来10次。

ddz79101

limonet 发表于 2024-4-7 14:27
一次不够来10次。

哈哈！谢谢

LIUZHU

排序一直都是JS数组的强项

1. function 表名排序(){
   
2.         let sharr=[...Sheets].map(sh=>sh.Name).sort((a,b)=>a.slice(-1).localeCompare(b.slice(-1)) ||
   
3.                 a.slice(0,2).localeCompare(b.slice(0,2)));
   
4.         sharr.forEach(sh=>Sheets.Item(sh).Move(null,Sheets.Item(Sheets.Count)));
   
5. }

复制代码

LIUZHU

附件在此，WPS打开测试

ddz79101

LIUZHU 发表于 2024-4-7 14:46
附件在此，WPS打开测试

谢谢老师！收藏了