人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

【ExcelVBA】RegExpオブジェクトについてのお伺いです。

あ(5000)
いい(200)
ううう(3200)
123(4000)
ABCD(500)

こちらの(数字)部分だけを置換したいと思っております。


いい
ううう
123
ABCD

------
Lastrow = Range("A65536").End(xlUp).Row
Set DRng = Range("E2:E" & Lastrow)

Set ReStr = New RegExp
ReStr.Global = True
ReStr.Pattern = "検索語"
For Each c In DRng
If Not TypeName(DRng) = "Range" Then Exit For
c.Value = ReStr.Replace(c.Value, "")
Next
-------
検索語にどのような正規表現を記述したらよいでしょうか?
なお、(数字)がないセルもあります。(数字)が入っているセルの値については(数字)で終わります。

よろしくお願いします。

●質問者: pocon
●カテゴリ:コンピュータ
✍キーワード:E2 EXIT NeXT regexp SET
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● 考え中
●60ポイント ベストアンサー

エクセルVBAは詳しく有りませんが、正規表現ならば下記の通りで良いと思います。

ReStr.Pattern = "\(\d*\)"

()そのものがない場合にはマッチしませんが、その場合は置換の必要がないんですよね。

参考URL

http://officetanaka.net/excel/vba/tips/tips38.htm

◎質問者からの返答

バッチリです。

ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ