>即時新聞-熱門

2010年8月19日星期四

篩選

Sub 篩選()

x = InputBox("請輸入需要的資料內容")

Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=x
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Sheets(2).Select
Selection.AutoFilter
Range("A1").Select
End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱