Excelを用いた置換について

下記の英文で、Excelの置換機能を用いてタグを取り除きたいのですがどうもうまくいきません。
検索する文字列の指定をどのようにしたらよいでしょうか。_*ではうまくいきませんし、1回では無理でしょうか。
I_PPIS1 did_VDD n't_XX have_VHI enough_DD money_NN1 to_TO buy_VVI many_DA2 CDs_NN2 ._.
置換後は次のようにしたいのですが。
I did n't have enough money to buy many CDs.

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/08/10 21:51

こんばんは！

置換で
検索する文字列に
_*
（↑アスタリクスの後に半角スペースを入れておきます）
とし
置換後の文字列に
半角スペースだけ
にしてみてはどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございます。とても助かりました。御礼にて。

お礼日時：2015/08/10 23:35

No.2 回答者： WindFaller 回答日時： 2015/08/11 01:04

解答は既に出ていますが、Excelではなくて、正規表現付きテキストエディターで可能だと思います。

フリーでよいので、ひとつ持っていると重宝します。名前から、notepad ++ を手に入れる人もいますが、有名な割には、なかなか使いこなせません。個人的には、サクラエディタは重宝していました。

検索値は、_[A-Z\d\.]+
置換値は、(なし)

Excelというのでしたら、同じ検索値で可能です。
ご興味があれば試してみてください。

'//
Sub ReplacePostwords()
'No. 9041696
　Dim n As Variant
　Dim buf As String
　Dim Matches As Object
　Dim Match As Object
　With CreateObject("VBScript.RegExp")
　　.Pattern = "_[A-Z\d\.]+"
　　.Global = True
　　.IgnoreCase = True
　　
　　For Each n In Selection
　　　If n <> "" Then
　　　　Set Matches = .Execute(n)
　　　　buf = n
　　　　For Each Match In Matches
　　　　　buf = Replace(buf, Match.Value, "", , 1)
　　　　Next Match
　　　　n.Value = buf
　　　End If
　　Next n
　End With
End Sub
'///

これでやってみると、文末の　._. は、スペースが空くようです。
直すことは可能ですが、今はそのままにします。

この回答へのお礼

ありがとうございます。エディタだとこういう使い方もでき便利です。いろいろと試してみます。

お礼日時：2015/08/16 12:30