マクロのInstr()などでスペースが半角全角不明の時は？

質問

InstrやRight関数で文字列変数内のスペースを取得するとき、半角全角どちらでもOKにするにはどう記述しますか？
Instr(myStr," " Or "　")はエラーになります。

回答No.1

mshr1962 · ベストアンサー

StrConv()で事前に文字全体を半角か全角に置き換える。
Instr(StrConv(myStr,VbNarrow)," ")
Instr(StrConv(myStr,VbWide),"　")

Replace()で事前にスペースのみを半角か全角に置き換える。
Instr(Replace(myStr,"　"," ")," ")
Instr(Replace(myStr," ","　"),"　")

お礼

ありがとうございます。
Replaceで置き換えます。

回答No.2

merlionXX

Instr(myStr," " Or "　")という書き方はできません。

Sub test01()
myStr = "abc　d"
MsgBox InStr(StrConv(myStr, vbNarrow), " ")
End Sub

こんな感じでしょうか。

お礼

一度変換する必要があるみたいです。
ありがとうございました。