$1,$2みたいな取り方ね。 Sub RegExpSample4() Dim regEx As Object, Matches As Object, Match As Object Set RE = CreateObject("VBScript.RegExp") Dim targetString As String targetString = "kakeru@yabuki @kyogokudo hisao@nanao " With RE .Pattern…