excel - VBA 工作表事件

Private Sub Worksheet_Activate()

Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="圍巾"
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False



End Sub