excel 的篩選資料功能

最近做專題，需要尋找Excel內的資料，有感於用尋找功能並一筆一筆資料複製到另外的資料表，非常麻煩，所以想到用macro解決需要的功能。

用關鍵字excel, macro,巨集,尋找這四者排列組合尋找，找啊找的，就花了挺多時間，皇天不負苦心人，終於讓我找到比較輕鬆的方法。

引用網址http://bbs.mychat.to/reads.php?tid=763131&page=1

感謝網址中這三位網友，謝謝

兩個方法：

====

方法一

用macro，這個方法我還沒測試，應該是可以用的。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set NewSheet = Sheets.Add(Type:=xlWorksheet)

'Set NewSheet = Worksheets.Add

NewSheet.Name = "_NewSheet_"

Dim DestSheet As Worksheet

Set DestSheet = Worksheets("_NewSheet_")

dRow = 1

For sRow = 1 To UsedRange.Rows.Count

For j = 1 To UsedRange.Columns.Count

If Cells(sRow, j) Like "*陳二二*" Then

dRow = dRow + 1

Rows(sRow).Copy Destination:=DestSheet.Rows(dRow)

End If

Next j

Next sRow

End Sub

====

方法二

for excel 2007

用"資料"=>"篩選"=>"自動篩選"或"進階篩選"

可以找到想要的資料並複製

還要自己複製到另外的資料表，算是比較間接的方法，也挺好用的。

====

excel 巨集教學

http://www.ncku.edu.tw/~iteach/ncl/cnc_course/90_1/functions.htm

for access的巨集教學

http://stu.csim.hk.edu.tw/msung/OfficeAuto/Access/Macro_Folder/Macro_S.htm