エクセルのVBAで（）に囲まれた文字列を置き換えたい。

今朝からずっと調べているのですが答えが見つからないので
質問させてください。

エクセルのVBAにて、任意の文字列を置き換えたいのですが
たとえばその文字列が、
"ゴールデン（犬）"だとした場合、
replaceでこのなかの"（犬）"のみを
""という風に削除したいのですが
上手く拾うことができません。
この犬の文字については他の文字が入ることもあるため、
括弧で囲まれた文字列（括弧を含む）があれば置き換え
という風にしたいのですが、どのようにすればできるでしょうか。

よろしくお願いします。

No.1 ベストアンサー 回答者： Dxak 回答日時： 2007/01/17 11:01

犬以外でも？

Cells.Replace What:="(*)", _
Replacement:="", _
LookAt:=xlPart,
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False

と、言う事？

この回答へのお礼

参考にさせて頂きます。
ありがとうございました。

お礼日時：2007/01/17 19:09

No.2 回答者： merlionXX 回答日時： 2007/01/17 11:10

Sub TEST01()

Cells.Replace What:="（*）", Replacement:="", LookAt:=xlPart, _
MatchCase:=False, MatchByte:=False

End Sub

でしょうか。

この回答へのお礼

参考にさせて頂きます。
ありがとうございました。

お礼日時：2007/01/17 19:26