GBKEE

¦^´_ 1# luffyzoro

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet
   
4.     For Each Sh In Sheets
   
5.         Sh.Move Sheets(Sh.[b2])
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# luffyzoro
Sh.Move Sheets(Sh.[b2])°õ¦æ¨ì³o¤@¦æ®É¥X²{  °õ¦æ¶¥¬q¿ù»~"13" «¬ºA¤£²Å
[b2]  ¶·¬O¼Æ¦r  >0 ¥B < =Sheets.Count(¤u§@ªíªºÁ`¼Æ)  

For Each Sh In Sheets                     -> ¦b Sheets¤u§@ªí¶°¦X(ª«¥ó) ,  ¨Ì§Ç³B¸Ì Sh(¤u§@ªí).
       Sh.Move Sheets(Sh.[b2])        ->Sh(³o¤u§@ªí) ªº[b2]

GBKEE

¦^´_ 7# luffyzoro

1. Sub Ex()
   
2.     Dim AR(), AR1(), i As Integer, N As Integer, Sh As Worksheet
   
3.     ReDim AR(1 To Sheets.Count)                             '³]©w°}¦Cºû¼Æ( 1 to ¤u§@ªíÁ`¼Æ)
   
4.     ReDim AR1(1 To Sheets.Count)                            '³]©w°}¦Cºû¼Æ( 1 to ¤u§@ªíÁ`¼Æ)
   
5.     For i = 1 To Sheets.Count
   
6.         AR(i) = Val(Sheets(i).[b2])                         'Sheets(i).[b2]¼Æ¦r¸m¤J°}¦C¤¤
   
7.     Next
   
8.     For i = 1 To Sheets.Count
   
9.         AR1(i) = Application.WorksheetFunction.Small(AR, i) '°}¦C±Æ§Ç¥Ñ¤p¨ì¤j
   
10.     Next
    
11.     For Each Sh In Sheets
    
12.         N = Application.Match(Val(Sh.[b2]), AR1, 0)         '¨ú±o Sh.[b2] ¼Æ­È©óAR1°}¦C¤¤±Æ§Çªº¦ì¸m
    
13.         Sh.Move Sheets(N)                                   '²¾°ÊSh©óSheets(N)¤§«e
    
14.     Next
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# luffyzoro
«Ü´Î£«, ³o´N¬O§A­nªº®ÄªG.±ø±ø¤j¸ô³qù°¨ªº,