0

VBA マクロ 複数検索について
完全一致のつもりですが
【AB6*01】で検索すると【AB6*101】までヒットしてしまいます。
他の数値（02・03・04等）でも同様です。
どこがおかしいのか、説明を入れてご教授ください -------------------------
※カテゴリーを違ってたようなので再度質問をUPしました。
元の方でコイン進呈してますので
よろしければ、こちらでご返答ください
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail.php?qid=1260815697
--------------------------

Sub Find()
Dim FoundCell As Range
Dim cnt As Integer
Dim firstAddress As String

'検索結果の表示行番号
cnt = 2

'検索結果の表示エリアを clear
If EffectiveRow_AssingColum("J") > cnt Then
Range("J2:K" & Format(EffectiveRow_AssingColum("J"))).ClearContents
End If

Set FoundCell = Sheets("data").Columns(28).Find(Range("J1"), , LookAt:=xlWhole)
If FoundCell Is Nothing Then
Range("J" & Format(cnt)) = "No Match"
Range("K" & Format(cnt)) = "No Match"
Else
firstAddress = FoundCell.Address
Do
Range("J" & Format(cnt)) = FoundCell.Offset(0, -24)
Range("K" & Format(cnt)) = FoundCell.Offset(0, -17)
cnt = cnt + 1
Set FoundCell = Sheets("data").Columns(28).FindNext(FoundCell)
Loop While Not FoundCell Is Nothing And FoundCell.Address <> firstAddress
End If

End Sub

--------------
検索値（ワード）は500ほど（全てにアスタリスクが入ってます）
検索対象となるデータは4,000を超えますが
上記の例以外のものは全て完全一致でヒットします。
又、検索値（ワード）の○○の部分にはアルファベットの大文字が入り
数値ではなく文字列（或いは、標準）で設定しているのですが
どうにか、検索ワードを変えずに識別、或いは重複ヒットを回避する方法は無いでしょうか・・？

質問者が選んだベストソリューション

Yahoo!知恵袋 4862日前