エクセル 任意の文字をＶＢＡで使いたい時

質問

Excel　VBAで、任意の文字（特定の文字ではなく、何か文字があるという状態）を含んだ語を、置換したいです。

具体的には、「;？」を「;　？」として置換したいです。
※ここで「？」は任意の文字としています。
以下のコードで試しましたが、うまくいきません。

Sub macro2()
Dim myRange As Range
Dim keyWord1 As String, keyWord2 As String
Dim bool As Boolean
Set myRange = Range("C4")
keyWord1 = ";?" 'ワイルドカードを使用
keyWord2 = "; ?"
bool = myRange.Replace(keyWord1, keyWord2, LookAt:=xlWhole)

End Sub

keyWord1 = ";?" 、keyWord2 = "; ?"の「"　"」の部分に何を入れればいいか、ご教授願います。
宜しくお願い致します。

回答No.4

SI299792 · ベストアンサー

これでどうでしょうか。
置換を２回行い、; の後空白２文字を、; の後空白１文字にしています。
これで、; の後に空白があっても、; の後の空白は１つです。
これが１番手っ取り早いかと思います。'
Sub Macro1()
'
　　[C4].Replace ";", "; ", xlPart
　　[C4].Replace "; ", "; "
End Sub

（空白２文字が変換される可能性があるので、画像を載せておきます）

お礼

ご回答ありがとうございます。ご教授頂きましたコードで成功しました！大変助かりましたので、ベストアンサーに選ばせて頂きます。

回答No.3

kkkkkm

> 具体的には、「;？」を「;　？」として置換したいです。

スペースがないところにスペースを入れたい、「;A」を「; A」にしたいみたいなことじゃないわけですね。

> 置換対象の文字列が元々「;」の次にスペースが入っているもので、「"; "」で置換すると、スペースが2つ入ってしまいます。

もともと入っているのなら置換する必要は無いと思いますが。

「; 」を「; 何らかの一文字」にしたいということでしたら

keyWord1 = "; "
keyWord2 = "; " & 文字を入れた変数

とかでできると思いますが。

「;」の後ろにスペースが無ければ入れたいのでしたら以下のようなイメージで

If Mid(myRange, InStr(myRange, ";") + 1, 1) <> " " Then
keyWord1 = ";"
keyWord2 = "; "
bool = myRange.Replace(keyWord1, keyWord2, LookAt:=xlPart)
End If

どちらにしても、具体的にどのような文字列にたいして結果をどうしたいのかが分かりません。

お礼

ご親切に補足にも回答頂き、ありがとうございます。説明が足りず申し訳ありませんでした。まさに、「;」の後ろにスペースが無ければ入れる…という事をしたかったです。
ご教授頂きましたコードで試し、コンパイルエラーが出てしまいました。当方とても知識不足ですので何がいけないのか、調べていきたいと思います。参考になるものをありがとうございました。

回答No.2

kkkkkm

単に「;」の後ろにスペースを追加したいだけなら

keyWord1 = ";"
keyWord2 = "; "
bool = myRange.Replace(keyWord1, keyWord2, LookAt:=xlPart) '← LookAt:=xlWholeは変更

でいいと思います。

お礼

ご回答ありがとうございます。ご教授頂きましたコード参考にさせて頂きます。

補足

ご回答ありがとうございます。
補足させて頂きます。
置換対象の文字列が元々「;」の次にスペースが入っているもので、「"; "」で置換すると、スペースが2つ入ってしまいます。スペースが2つある状態は避けたいので、任意の文字で設定したかったのです。説明が足りずすみません。
";."で試しましたが、うまく変換出来ません。
コードから間違っているのでしょうか。

回答No.1

tanakanono

正規表現を使うとよいと思います。
VBA 正規表現で調べるとやり方が出てきます。

お礼

「正規表現」初めて知りました。
「.」で任意の文字を表すのですね、勉強になります。質問の中のコードに当てはめても、私の知識不足でうまくいきませんでしたが、根気よく調べて行きたいと思います。ご回答ありがとうございました。