- 帖子
- 16
- 主題
- 5
- 精華
- 0
- 積分
- 29
- 點名
- 0
- 作業系統
- WIN XP PRO
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 10
- 註冊時間
- 2010-5-5
- 最後登錄
- 2014-8-15
|
本帖最後由 tony0318 於 2010-5-24 14:54 編輯
請問底下程式碼，原先會依照第一欄位的不同自動分類到各工作表，
想知道如何以第三欄位作為分類！因為對程式不懂，只能TRY，謝謝。- Sub ex()
- '
- Dim A As Range
- Set d = CreateObject("Scripting.Dictionary")
- With Sheet1
- For Each A In .Range(.[A2], .[A65536].End(xlUp))
- If IsEmpty(d(A & "")) Then
- Set d(A & "") = Union([A1:L1], A.Resize(, 12))
- Else
- Set d(A & "") = Union(d(A & ""), A.Resize(, 12))
- End If
- Next
- For Each ky In d.keys
- With Sheets.Add(after:=Sheets(Sheets.Count))
- .Name = ky
- d(ky).Copy .[A1]
- End With
- Next
- End With
- '
- End Sub
 ZO.rar (11.29 KB)
|
|
發表於 2010-5-24 13:38
| 
