Sub 正規表現() Dim hoge, strpat As String, hogeMatch Set hoge = CreateObject("VBScript.RegExp") strpat = ".*?(\n|$)" With hoge .Pattern = strpat .IgnoreCase = True .Global = True End With Set hogeMatch = hoge.Execute(Cells(1, 1)) If hogeMatch.Count > 0 Then Debug.Print (hogeMatch(0)) Debug.Print (hogeMatch(1)) Debug.Print (hogeMatch(2)) End If End Sub
