Hsieh

¦^´_ 3# luffyzoro

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. 
   
5. For Each sh In Sheets
   
6.   k = k + 1
   
7.   d(k) = sh.[B2].Value
   
8.   d1(k) = sh.Name
   
9. Next
   
10. Do Until d.Count = 0
    
11. ar = d.items: ay = d.keys
    
12.   n = Application.Match(Application.Min(ar), ar, 0) - 1
    
13.   ky = ay(n)
    
14.   d.Remove ky
    
15.   Sheets(d1(ky)).Move after:=Sheets(Sheets.Count)
    
16. Loop
    
17. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# luffyzoro

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")  '³Ð«Ø¦r¨åª«¥ó
   
3. Set d1 = CreateObject("Scripting.Dictionary")  '³Ð«Ø¦r¨åª«¥ó
   
4. 
   
5. For Each sh In Sheets  '¥H©Ò¦³¤u§@ªí°µ°j°é
   
6.   k = k + 1  '³]¸mÅܼÆk¡A¨C¤@­Ó¤u§@ªí¼W¥[ÅܼƭÈ1
   
7.   d(k) = Val(sh.[B2].Value)  '±N¤u§@ªíB2ªº­È¦s¤J¦r¨åª«¥ó
   
8.   d1(k) = sh.Name   '±N¤u§@ªí¦WºÙ¦s¤J¦r¨åª«¥ó
   
9. Next
   
10. Do Until d.Count = 0  '°õ¦æ°j°é¡Aª½¨ì¦r¨åª«¥ó¤º¨S¦³¶µ¥Ø¦s¦b
    
11. ar = d.items: ay = d.keys  '±N¦r¨åª«¥óªº¯Á¤Þ­È¤Î¤º®e¨ú¥X«ü©wµ¹°}¦CÅܼÆ
    
12.   n = Application.Match(Application.Min(ar), ar, 0) - 1  '§ä¨ì³Ì¤p­Èªº§Ç¸¹¡A¦]°}¦Cªº¯Á¤Þ­È¬O±q0¶}©l¡A©Ò¥H¥²¶·±N¦ì¸m´î1¡A¤~¬O¹ï·Óªº¯Á¤Þ­È
    
13.   ky = ay(n)  'ky·|±o¨ì¥Ø«e¦r¨åª«¥ó¤º®e(B2­È)ªº³Ì¤p­È¹ïÀ³ªº¤u§@ªí¦WºÙ
    
14.   d.Remove ky  '²¾°£¦r¨å¶µ¥Ø
    
15.   Sheets(d1(ky)).Move after:=Sheets(Sheets.Count)  '±N¤u§@ªí²¾°Ê¨ì³Ì«á
    
16. Loop
    
17. End Sub

½Æ»s¥N½X