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

複製代碼

Hsieh

回復 6# 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  '設置變數k，每一個工作表增加變數值1
   
7.   d(k) = Val(sh.[B2].Value)  '將工作表B2的值存入字典物件
   
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  '找到最小值的序號，因陣列的索引值是從0開始，所以必須將位置減1，才是對照的索引值
    
13.   ky = ay(n)  'ky會得到目前字典物件內容(B2值)的最小值對應的工作表名稱
    
14.   d.Remove ky  '移除字典項目
    
15.   Sheets(d1(ky)).Move after:=Sheets(Sheets.Count)  '將工作表移動到最後
    
16. Loop
    
17. End Sub

複製代碼