VBA-在自动过滤器中排除通配符值？

Question

我必须做2张Excel表格。一个用于某个客户的所有帐户，一个没有。不幸的是，按照客户名称的排列方式，我必须使用通配符搜索这些客户。

仅适用于客户的宏工作正常，但排除客户的宏却无法正常工作。

工作宏：

Sheets("AR Aging").Range("A:J").AutoFilter Field:=2, Criteria1:=Array( _
"*COMPANY*"), Operator:=xlFilterValues

Range("A:J").Copy
Sheets.Add After:=Sheets(7)
ActiveSheet.Paste
Sheets(8).Select
Sheets(8).Name = "XYZ"

Sheets("AR Aging").AutoFilterMode = False
Sheets("AR Aging").Activate
Application.CutCopyMode = False

唯一的区别是无效的宏

Criteria1:=Array( "*COMPANY*")

已更改为

Criteria1:=Array( "<>*COMPANY*")

，并且工作表编号已更改。