完全に一致する文字列を検索するマクロ文

For Each rng In Range("B1:B21200")
If rng.Value <> "" Then
Set out = Range("A1:A2100").Find(rng.Value)
If Not out Is Nothing Then
igo = out.Address
End If

Do While Not out Is Nothing
out.Font.ColorIndex = 3
Set out = Range("A1:A2100").FindNext(out)
If igo = out.Address Then
Exit Do
End If
Loop
End If
Next
このマクロはRange("B1:B21200")でRange("A1:A2100")を検索し一致する文字列を赤文字（A列の文字）にするのですが
このマクロだと、あいまいな検索になってしまいます。
完全に一致する文字列のみ赤文字にするマクロ文を知りたいのですが。

No.1 ベストアンサー 回答者： higekuman 回答日時： 2008/05/02 14:44

Find をよく調べてみましょう。

部分一致か完全一致かを指定できますよ。

この回答へのお礼

あっ　そうか　lookAt:= xlWholeを付け足すんですね。ありがとうございました。

お礼日時：2008/05/02 18:46