VBAで"*"を含む行を削除するマクロ

Question

###前提・実現したいこと
エクセルVBAで、"*"がを含む行を削除するマクロを作りたいです。

例えば、

りんご
ばなな
キウイ
*トマト
キャベツ
*レタス
ナス

という文字列のある場合、
*トマトと、*レタスのある行を削除したいです。
*は必ず頭につきますので、
「*を含む行」でも、「*が頭につく文字列のある行」でも構いません。

###発生している問題・エラーメッセージ
指定文字を全て指定すれば、その行を削除できるマクロは組めました。

しかし、｢頭にアスタリスクのある文字列」という条件が作れません。ワイルドカードの考え方で、"**"とすると、頭にアスタリスクのある文字になるかと考えたのですが、全て消えてしまいます。

下記のソースコードだと、シート指定、列指定になっていますが、指定は無い方がより好ましいです。

###該当のソースコード
Sub test()
Sheets("Sheet1").Select
Do While (True)
Columns("E:E").Select
Set mySelect = Selection.Find(What:="**")
If mySelect Is Nothing Then Exit Do
Rows(mySelect.Row).Select
Selection.Delete Shift:=xlUp
Loop

End Sub

###補足情報(言語/FW/ツール等のバージョンなど)
エクセルVBA素人です。
よろしくお願い致します。

Answer 1

これでどうですか？

Set mySelect = Selection.Find(What:="~*", LookAt:=xlPart)

ただし、今回は問題ないと思いますが、Find は遅い(VBAのFindメソッドの使い方には注意が必要です)そうなので、速度が必要な場面では使わない方が良さそうです。

Comments

[komatsu]

解決できました。
補足までありがとうございます。
Findは遅いのですね。
今回は大丈夫そうですが、勉強になりました。
ありがとうございました。