Filter/replace - VBA

 Auto filter:

ActiveSheet.Range("A:F").AutoFilter Field:=3, Criteria1:="*Agent*"
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft

　　

 Replace:

 Selection.Replace What:=" STAGE", Replacement:="", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False

　　

posted @ 2015-10-20 16:05  西番莲果汁  阅读(277)  评论(0)  编辑  收藏  举报