复杂工作表排序问题

bzjwcws

各位大侠，我用合并软件合并了3所小学共36个班级，合并后每所小学的年级和班级的顺序混乱，请问能否用VBA一键排序，实现每所小学按如下顺序排序：一（1）、一（2）、二（1）、二（2）、三（1）、三（2）、四（1）、四（2）、五（1）、五（2）、六一（1）、六（2），非常感谢！

limonet

你搜索一下，这类帖子很多。

ynzsvt

代码在你自己的工作簿上运行，取得工作表名称一列，辅助列自己手工完成并排序，回到你自己的工作簿上运行，排序工作表名称

LIUZHU

用wps的js,数组排序，这个问题很简单

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.8   工作表排序
   
2.     Application.ScreenUpdating = False
   
3.     With ThisWorkbook
   
4.         For i = 1 To .Worksheets.Count - 1
   
5.             For j = i + 1 To .Worksheets.Count
   
6.                 If UCase(.Worksheets(j).Name) < UCase(.Worksheets(i).Name) Then
   
7.                     Set temp = .Worksheets(j)
   
8.                     temp.Move Before:=.Worksheets(i)
   
9.                 End If
   
10.             Next j
    
11.         Next i
    
12.         Sheets("中小一(1)班").Select
    
13.     End With
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    
16. 
    

复制代码

bzjwcws

ykcbf1100 发表于 2024-6-8 19:44
附件供参考。。。

大神你好，感谢帮助！您这个代码实现了按照班级1、2排序，请问能否再按照一、二、三、四、五、六排序呢？非常感谢！

ykcbf1100

bzjwcws 发表于 2024-6-8 20:09
大神你好，感谢帮助！您这个代码实现了按照班级1、2排序，请问能否再按照一、二、三、四、五、六排序呢？ ...

有时间再研究吧

quqiyuan

参与一下，供参考

quqiyuan

代码如下：
Sub test()
    s = Split("一 二 三 四 五 六")
    num = [{1,2}]
    Name = Split("中小 小博士 希望")
    Set d = CreateObject("scripting.dictionary")
    For k = 0 To UBound(Name)
        For i = 0 To UBound(s)
            For j = 1 To UBound(num)
                n = n + 1
                d(Name(k) & s(i) & "(" & num(j) & ")班") = n
            Next
        Next
    Next
    Key = d.keys
    Item = d.items
    For Each kk In d.keys
        For Each sh In ThisWorkbook.Worksheets
            If kk = sh.Name Then sh.Move before:=ThisWorkbook.Sheets(d(sh.Name)): Exit For
        Next
    Next
    Set d = Nothing
    Beep
End Sub