Excel 2007で正規表現を使う

Excel 2007で正規表現を使ってみた。

まずは下記手順で正規表現を有効にする。

1. Alt + F11でMicrosoft Visual Basicを開く。
2. ツール → 参照設定
3. Microsoft VBScript Regular Expression 5.5をチェックしてOKをクリック

下記は試しに作ってみたマクロ。たとえば「100 MHz」という値のセルを選択して実行すると、セルの値が「100」になる。
Sub Remove_MHz()
   Dim re As RegExp

   Set re = New RegExp
   re.Pattern = "\s+MHz"

   For Each xCell In Selection
       xCell.Value = re.Replace(xCell.Value, "")
   Next xCell
End Sub