多くの.AutoFilter ORのように動作する基準

Question

私は2つのワークシートを持っています。私は、以下のようにオートフィルタを使用するVBAを使用して

：

シート1：

Username, Country, City 
User1, America, New York 
User2, America, Miami 
User3, America, Los Angeles 

のSheet2：

Country, City, Contact 
America, <>Miami, AllCitiesButMiami@test.com 
America, Miami, OnlyMiami@test.com 

私のオートフィルタは、これまでのようになります。

0シート1を反復処理がされるべきであるの

結果：

シート1：行1（ユーザー1）：市=ニューヨーク、前記コンタクト= "AllCitiesButMiami@test.com"

シート1：行2（ユーザー2）：市=マイアミ、前記コンタクト= "OnlyMiami@test.com"

シート1：ROW3（ユーザー3）：市=ロサンゼルス、前記コンタクト= "AllCitiesButMiami@test.com"

問題： 私が必要"<>マイアミ"はすべての都市をピックアップしません。

Answer 1

これは私の問題を解決した方法です。私は基準を使用するまで<が>マイアミをピックアップされていませんでした「〜<> *」

.... 
Dim City 
City = Worksheets("Sheet1").Range("C" & i) 'i = current row 

'I set the filter to current row data 
.AutoFilter Field:=14, Criteria1:=City 

'Check row count (cell count/no. of columns) 
rowCount = .Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Count/3 

'If the row count is < 2, no data, change the filter criteria to find other 
If (rowCount < 2) Then 
    .AutoFilter Field:=5, Criteria1:="~<>*" 
End If 
....