エクセルvba ＩＦについて（複数条件）

質問

エクセルvbaでのifの構成について教えてください。
（1）*あいうえお　　　→あいうえお
（2）あいうえお*　　　→あいうえお
（3）*あいうえお*　　 →あいうえお　　　　　に変換させたいです。

以下のマクロを作りました。

Sub test()
Dim c As Range
For Each c In Selection.Cells

If InStr(c, "*") = 1 Then
c = Mid(c, InStr(c, "*") + 1)

ElseIf InStrRev(c, "*") > 0 Then
c = Left(c, InStrRev(c, "*") - 1)
End If
Next
End Sub

これだと（1）（2）はできるのですが、（3）は２回実行しないと全ての*が削除できないです。
１回の実行で「あいうえお」ができるようにするにはどうしたらよいのでしょうか。

本当は、
**＊*あいうえお*＊　　→あいうえお
のように、*（半角）や＊（全角）が文字の前後についている場合、すべての*（半角）と＊（全角）削除したいのですが（できれば１回の実行で）、そのようなことは可能なのでしょうか。

midやleftの作り方も間違っていれば、それもご教授ください。
よろしくお願いします。

回答No.1

keithin · ベストアンサー

方法１：「あい＊うえお」も「あいうえお」にしてよい場合
sub macro1()
　selection.replace what:="~*", replacement:="", lookat:=xlpart, matchbyte:=false
end sub

方法２：アタマとオワリに限って除去したい場合
sub macro2()
　dim c as range
　for each c in selection

　　do while strconv(left(c, 1), vbnarrow) = "*"
　　　c = mid(c, 2)
　　loop

　　do while strconv(right(c, 1), vbnarrow) = "*"
　　　c = left(c, len(c) - 1)
　　loop
　next
end sub

お礼

早急の答えありがとうございます。

このようなやり方は全く思いつきませんでした・・
勉強になりました。
ありがとうございました。