Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Sub filterExclusion()
With Sheets("Sheet1").Range("A1")
.AutoFilter _
Field:=3, _
Criteria1:="<>" & "*ABC*", _
Operator:=xlFilterValues
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sheet2").Range("A1")
.AutoFilter
End With
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.