VBA 正規表現 – テックメモ

Sub test()

Set w = ActiveSheet

Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
reg.pattern = "\D-[0-9]{3,4}"
reg.IgnoreCase = True
reg.Global = False

For r = 2 To 6113
  Set m = reg.Execute(w.Cells(r, 4).Value)
  If m.Count > 0 Then
    tmp = Split(m.Item(0).Value, "-")(1) ' 指定の文字列より右側を取得
    w.Cells(r, 10).Value = tmp
  End If
Next

End Sub

Sub test()

Set w = ActiveSheet

Dim reg As Object

Set reg = CreateObject("VBScript.RegExp")

reg.pattern = "\D-[0-9]{3,4}"

reg.IgnoreCase = True

reg.Global = False

For r = 2 To 6113

Set m = reg.Execute(w.Cells(r, 4).Value)

If m.Count > 0 Then

tmp = Split(m.Item(0).Value, "-")(1) ' 指定の文字列より右側を取得

w.Cells(r, 10).Value = tmp

End If

End Sub