ワークシートに文字列が表示されるかどうかを確認する* 2回* Excel VBA？

Question

特定の文字列が特定のシートに2回表示されているかどうかを確認しようとしています。これまでのところ、私は文字列のみが一度表示されたかどうかを確認することができるよ：

For Each curr In wb.Worksheets(1).UsedRange 
    If InStr(1, curr.Value, searchString) > 0 Then 
     MsgBox ("searchString appears once") 
    End If 
Next 

にはどうすれば値が2回表示かどうかを確認するためにUsedRangeをチェックしますか？これはマクロでなければなりません（これまで私がこれを行う数式を見つけました）。

Answer 1

If WorksheetFunction.CountIf(Worksheets(1).UsedRange, "*" & searchString & "*") > 1 Then 
    MsgBox searchString & " appears more than once" 
End If 

Answer 2

あなたが最初のマッチを見つけたときにフラグを設定し、フラグが設定されているかどうかを確認します。

Dim first As Boolean 
For Each curr In wb.Worksheets(1).UsedRange 
    If InStr(1, curr.Value, searchString) > 0 Then 
     If first Then MsgBox ("searchString appears twice") 
     first = True 
    End If 
Next