- 帖子
- 45
- 主題
- 10
- 精華
- 0
- 積分
- 62
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2007
- 閱讀權限
- 20
- 註冊時間
- 2015-1-18
- 最後登錄
- 2015-10-9
|
2#
發表於 2015-2-3 22:56
| 只看該作者
Sub 一()
For i = 1 To 3
Cells(1, 1).AutoFilter 2, i
Cells(1, 1).CurrentRegion.Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "SHEET" & i
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(1).Select
ActiveSheet.ShowAllData
Next i
ActiveSheet.AutoFilterMode = False
End Sub |
|
