- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- excel2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2016-1-21
- 最後登錄
- 2017-2-8
|
[發問] excel 自動篩選依照另外一個工作表的內容
本帖最後由 ljuber 於 2016-1-21 11:18 編輯
請問各位大大 我有個經常性的工作
我有錄製巨集並且小小修改 但是有下面幾項不知道要怎麼修改：
1.可以從檔案總管選擇文字檔案匯入
2.篩選條件在 設定工作表的A2:A4 (此範圍會變動)
(是依照tab分隔 會在第五欄)
3.複製完後文字檔案會自動關閉
4.把篩選後的資料貼到資料工作表，資料會一直往下加下去
(附上檔案）
 練習.zip (346.84 KB)
錄製的巨集：
Sub Macro1()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set MainSh = Workbooks("練習.xlsm")
abc = Sheets("資料").Range("A1").End(xlDown).Row
Workbooks.OpenText Filename:="D:\10412-ai201.txt", Origin:=950, Tab:=True, TrailingMinusNumbers:=True
Columns("A:G").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$G$111784").AutoFilter Field:=5, _
Criteria1:=Array("11001", "11005", "11009"), Operator:=xlFilterValues
Selection.Copy
MainSh.Sheets("資料").Activate
Range("A" & abc + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub |
|
發表於 2016-1-21 11:17
| 
