ECXEL VBA - ワイルドカード

Valueの指定にワイルドカードを使いたいのですが
*でくくってもうまく行きません。

ちなみに下記のコードは

Ａ列のセルに「abc」と言う文字が含まれていればその行を削除する
という処理をしているつもりなのですが
おかしい所があれば、ご指摘お願いします。

For i = 2 To Range("A3").CurrentRegion.Rows.Count
If Cells(i, 1).Value = "*abc*" Then
Rows(i).Delete shift:=xlUp
i = i - 1
Else
i = i + 1
End If
Next i


よろしくお願いします。

No.1 ベストアンサー 回答者： mshr1962 回答日時： 2005/10/21 16:40

If Cells(i, 1).Value Like "*abc*" Then

で出来ませんか？

この回答へのお礼

mshr1962さん！ 大感謝です！！

きっと、とても初歩的なことなんでしょうねー。
こんなこともわからないなんてお恥ずかしいです。

でもmshr1962さんはじめ、ここのご親切な方々のおかげで
１つ１つ、勉強になっています。

本当にありがとうございました。

お礼日時：2005/10/21 16:56