- ©«¤l
- 45
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-1-18
- ³Ì«áµn¿ý
- 2015-10-9
|
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 |
|