【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
-------
検索語にどのような正規表現を記述したらよいでしょうか?
なお、(数字)がないセルもあります。(数字)が入っているセルの値については(数字)で終わります。

よろしくお願いします。

回答の条件
  • 1人10回まで
  • 登録:2011/01/17 13:04:54
  • 終了:2011/01/17 13:27:42

ベストアンサー

id:nobnob3 No.1

考え中回答回数322ベストアンサー獲得回数292011/01/17 13:23:14

ポイント60pt

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

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

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

参考URL

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

id:pocon

バッチリです。

ありがとうございます。

2011/01/17 13:27:27

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません