文字列から「任意の数字+特定の文字」を探す

質問

VBA マクロ操作なのですが、ある文字列中に「任意の数字+特定の文字」があればそこで分離、というコードを作りたいと思っています。
具体的には

Cells(1,1)=24-15[5,5-[-
↓　”5[”で分離
Cells(1,1)=24-15

他には
Cells(1,1)=2[-1 　→ 2
Cells(1,1)=6[[-[1[ 　 → 6[[-[1
Cells(1,1)=7-[-1 　→ 7-[-1

という結果を得たいと思っています。
”数字+[ "となっている部分を探したいのですが、文字である" [ "は指定できますが数字が何かは不明です。
”数字+[ "がない場合もありその時は分離しません。

よろしくお願いします。

回答No.3

watabe007 · ベストアンサー

参考に
Dim myStr As String
Dim i As Long, n As Long

myStr = "Cells(1,1)=2[-1 "
For i = 0 To 9
n = InStr(myStr, i & "[")
If n > 0 Then Exit For
Next
If i > 9 Then
MsgBox myStr
Else
MsgBox Left(myStr, n)
End If

お礼

ありがとうございます。

＞For i = 0 To 9
n = InStr(myStr, i & "[")
If n > 0 Then Exit For
Next

こういう発想を知らず勉強になりました。
大変参考になりました。
助かりましたありがとうございます。

回答No.2

imogasi

基本的に関数ではまず無理という性格の問題と思う。
すでに＃１で出ているように、ＶＢＡ、ＶＢＳを使って正規表現に持ち込むか、正規表現を重視しているテキストエディタ（ＵＮＩＸ系が発祥）を使ってできないか考えることになるでしょう。
オフィスはワイルドカード以外は、正規表現のような考え方は、重視していないようで
充実していない。むしろバージョンが進んで退化した？ように思う。ワードの方がまだその考えを取り入れているように思う。
正規表現は、質問者に取って、１夜の勉強で利用可能かどうか疑問がある。
ＶＢＡでＩｎｓｔｒ関数で[の位置は簡単にi判るが、その直後の文字が数字かどうか判定が必要のようだからプログラムを組む必要が出てくる。
ーー
その前に、ルールについて
しかしその判定のロジックが、質問の説明では不十分ではないか？
数字部分は、むしろ数字というよりも、数であって、－１などは数とするのかな。
6[[-[1[ 　 → 6[[-[1は文章ではどう説明するの？
どうだからこうだという説明を文章でしてみてよ。
7-[-1 　→ 7-[-1　は該当しないというケース例か？
もう少し文章で言えばどうなるのか、正確に質問者が思考し、丁寧に表現しないと、むつかしさも大幅に変わる（あるいは不可能という結論になる）と思うよ。回答もミスする。
質問者のレベルでは、データ数（セル数）が少ないなら、多分該当文字箇所を質問者が頭で、判定し、素の箇所に特殊記号を挿入して置き、全セルまとめてその部分以下を捨てる（関数を利用）のが早いと思うよ。

お礼

ありがとうございます。
説明不足で申し訳ありません。
"-1"などの場合は"1"だけが対象で、" [ "の直前の一文字が数字という意味でした。

回答No.1

trytobe

「正規表現」を使って、数字を表す「d」または「[0-9]」が何文字か、とか、

￥[ という正規分布では範囲を示す特殊文字「 [ 」そのものを検索させる、とか、

そうやって行うのが、他の処理系でも使える正規表現をそのまま流用できて書きやすいように思いますよ。

正規表現による文字列マッチング | EXCE(エクセル)のVBA・マクロ
http://excel-mania.com/vba/regexp.html

VBAで正規表現を利用する（RegExp）｜ExcelマクロVBA技術解説
http://excel-ubara.com/excelvba4/EXCEL232.html

お礼

ありがとうございます。
正規表現という概念を初めて知りましたので勉強しようと思います。