文字列抽出方法の関数を教えてください。

質問

文字列抽出方法の関数を教えてください。
文字列に“{\”で始まる文字があった場合、そこから半角空白（1文字）までを削除。
次に“}”を削除して、残りの部分を表記させたい。

{\○△□● }の中は
　○・・・半角英語
　△・・・半角数字
　□・・・半角数字もしくは空白
　●・・・半角空白もしくはなし
次に半角空白があり“}”があります。
“{\”から一番目の半角空白を削除、“}”も削除したいです。
英語や数字はさまざまな文字が入ります。

下記☆が例になります。⇒以降が表記させたい内容です。

☆ファイル名{\f3 :}
⇒ファイル名 :

☆{\f91 ( }{\f9 「}{\f91 １２ }{\f9 設定}{\f91 }{\f9 」}{\f91 }{\f9 参照}{\f91 )}
⇒( 「１２ 設定 」 参照 )

文字列の中には複数削除したい部分がある場合があります。
今は手作業で作業していて、とっても時間がかかるし間違える場合もあります。
何かいい方法があれば教えてください。
宜しくお願い致します。

回答No.2

mt2008 · ベストアンサー

同じ文字列中で検索や削除を何度も行うのは関数では難しいです。
関数では無いですが、置換を2回行っては？
必要ならマクロ記録でマクロを作っても良いですし。

1回目の置換
検索する文字列："{\* "
置換後の文字列：""

2回目の置換
検索する文字列："}"
置換後の文字列：""

回答No.6

web2525

あ、削除したいのが
{\に続く部分だけなのですね、じゃあ下の回答(No5)は無視してください

回答No.5

web2525

不細工なマクロですが
Sub mozi1()
SP = 0
Mr = ActiveCell
While Mr <> ""
mozi = Left(Mr, 1)
Mc = Asc(mozi)
If Mc = 32 Then
SP = SP + 1
If SP > 1 Then
retu = retu & mozi
End If
End If
If Mc < 0 Then
retu = retu & mozi
End If
Mr = Right(Mr, Len(Mr) - 1)
Wend
ActiveCell.Offset(0, 1) = retu
End Sub

抽出したいセル選択した状態で実行するとその横のセルに抽出結果がでます。

回答No.4

maron--5

◆＃3は回答誤りです、無視してください

回答No.3

maron--5

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"{\f9",),"1",),"}",)," ",)

回答No.1

web2525

ようは全角文字だけ残して半角文字(半角スペースを含む)は全て削除で良いのかな?

補足

文章途中の半角スペースは残したいです。
もし、何かいい方法があれば教えてください。
宜しくお願い致します。