否则将应用不包含“设备”的过滤器。再把添加不包含月的过滤器

如果您想要同时添加不包含“月”的过滤器，可以在日期不为1号的情况下，再添加一个过滤器来实现。修改后的代码如下所示：

If Day(Date) = 1 Then
    ws.Range("B1").AutoFilter Field:=2, Criteria1:="=*月*", Operator:=xlAnd, Criteria2:="<>*设备*"
Else
    ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*设备*", Operator:=xlAnd, Criteria2:="=*月*"
End If

这将在日期为1号时应用包含“月”但不包含“设备”的过滤器，在日期不为1号时同时应用不包含“设备”和包含“月”的过滤器，实现您的要求。