次のように書くと、よいみたい Dim re as Object Dim mc as Object Dim m as Object Dim i as long '正規表現オブジェクト Set re = CreateObject("VBScript.RegExp") 'パターン指定 'refer to：http://msdn.microsoft.com/ja-jp/library/ms974570.aspx re.P…