- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 16
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-3-28
|
- Sub zz()
- Application.ScreenUpdating = 0
- Dim rng As Range, d As Object, ws As Worksheet
- Set ws = ActiveSheet
- ws.AutoFilterMode = False
- c = [a3].CurrentRegion.Columns.Count
- Set d = CreateObject("scripting.dictionary")
- Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(3).Row, c))
- a = rng.Columns(3)
- For i = 2 To UBound(a)
- d(a(i, 1)) = ""
- Next
- k = d.keys
- For i = 0 To UBound(k)
- ws.Copy after:=Sheets(Sheets.Count)
- ActiveSheet.AutoFilterMode = False
- [a3].CurrentRegion.Clear
- With ws
- rng.AutoFilter Field:=3, Criteria1:=k(i)
- .[a3].CurrentRegion.Copy [a3]
-
- End With
- ActiveSheet.Name = [c6].Value
- Next
- Application.ScreenUpdating = 1
- End Sub
|
|
發表於 2018-6-9 10:20
| 
