VBA中有筛选方法，autofilter,但是criteria只能用两个，如果超过3个如何处理？

比如我要筛选出：
1. 包含字母M
2. 不包含字母DM
3. 不包含字母DM
3个条件要同时满足
Sheet1.Range("B1:O44630").AutoFilter field = 2, Criteria1:
后面该如何写？
Sheet1.Range("B1").AutoFilter field:=2, Criteria1:=Array("=*M*", "<>*MM*", "<>*DM*")好像也不管用

sub test()

    with range("a1").currentregion
        if not .worksheet.autofiltermode then   '判断是否已经打开自动筛选，
            .autofilter  '没有自动筛选，则自动筛选
        end if
        .autofilter field:=5, criteria1:="false"   '筛选出false的行
        .offset(1).resize(.rows.count() - 1).specialcells(xlcelltypevisible).entirerow.delete '用offset不删除标题行
        .autofilter field:=5
    end with

end sub

改为Sheet1.Range("1:1").AutoFilter field:=2, Criteria1:=Array("=*M*", "<>*MM*", "<>*DM*")试试呀