怎么实现筛选排除某列中几个特定值以外的的信息？

爱吃鱼摆摆

Sub SHAIXUAN()
    Selection.AutoFilter
    Columns("J:J").Select
    ActiveSheet.Range("$A$1:$Y$3000").AutoFilter Field:=10, Criteria1:=Array( _
        "陈蓉", "陈蓉高位", "陈云", "陈云高位", "陈云流离",  "姜世文", "姜世文高层", "姜洋", "姜洋BM", "姜洋BN", _
        "姜洋BT", "姜洋BW", "姜洋高位", "垃圾数据", "李慧兰", "吕超志", "吕超志高位","杨S01", _
        "杨S02", "杨S03", "杨S04", "杨S05", "杨S06", "杨S07", "杨启辉", "杨启辉高位", "杨心煦", "杨心煦高位", "杨永春"), Operator:=xlFilterValues
End Sub
怎么能实现J列排除这四个以外的筛选呢？
Sub SHAIXUAN()
    Selection.AutoFilter
    Columns("J:J").Select
    ActiveSheet.Range("$A$1:$Y$3000").AutoFilter Field:=10, Criteria1:<>Array( _ "王莉高位", "吴瑾", "吴瑾高位","郭文丽高位", ), Operator:=xlFilterValues
End Sub
但是实际上这样是无法运行的，正确的该怎么写呢？坐等高手解答

cailc1361

上传附件容易得到答案的

爱吃鱼摆摆

例如，在附件表中，在J列想筛选除开吴瑾、王莉、郭文丽的保管员，怎么写宏？