[發問] 請求 自動依欄位分類巨集 修改

tony0318

請問底下程式碼，原先會依照第一欄位的不同自動分類到各工作表，
想知道如何以第三欄位作為分類！因為對程式不懂，只能TRY，謝謝。

1. Sub ex()
   
2. 
   
3. '
   
4. 
   
5. Dim A As Range
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. With Sheet1
   
8. For Each A In .Range(.[A2], .[A65536].End(xlUp))
   
9.   If IsEmpty(d(A & "")) Then
   
10.   Set d(A & "") = Union([A1:L1], A.Resize(, 12))
    
11.   Else
    
12.   Set d(A & "") = Union(d(A & ""), A.Resize(, 12))
    
13.   End If
    
14. Next
    
15. For Each ky In d.keys
    
16.    With Sheets.Add(after:=Sheets(Sheets.Count))
    
17.    .Name = ky
    
18.    d(ky).Copy .[A1]
    
19.    End With
    
20. Next
    
21. End With
    
22. 
    
23. '
    
24. End Sub

複製代碼

希望呈現如附件 分類 ZO.rar (11.29 KB)

下載次數: 20

2010-5-24 14:54

tony0318

謝謝！

好像有點眉目了！！