Extracting data after last dot(.) or comma(,)

Hi,
The nature of data is similar to it at posthttps://www.excelforum.com/excel-pro...-brackets.html ,I have another things to extract that is the data after last dot(.) or comma(,) if exists,else leave intact.Workbook is enclosed for your kind reference.Here,data is the original worksheet & required is the output worksheet.However the result is required in the same worksheet and not is seperate worksheet which have already done in above link as contributed by forum contributor "Jindon"

review your last time have include extracting numeric require, try below code:

Sub zz()
Dim r1 As Object, s, t, ar()
Set r1 = CreateObject("vbscript.regexp")
s = Range("b2:b" & [b1048576].End(3).Row)
ReDim ar(1 To UBound(s), 1 To 3)
With r1
    .Pattern = "\(\d+"
    For i = 1 To UBound(s)
        t = Split(Replace(s(i, 1), ", ", ","), ",")
        ar(i, 1) = Trim(t(0))
        For Each c In .Execute(s(i, 1))
            ar(i, 3) = Mid(c, 2)
            If UBound(t) Then ar(i, 2) = Trim(Split(t(1), c)(0))
        Next
        If ar(i, 2) = "" And UBound(t) Then ar(i, 2) = t(1)
    Next
End With
[c2].Resize(UBound(ar), 3) = ar
End Sub

Originally Posted by jindon

Sub test()
    Dim a, i As Long
    Columns("c:d").Insert
    With Range("b2", Range("b" & Rows.Count).End(xlUp)).Resize(, 3)
        a = .Value
        With CreateObject("VBScript.RegExp")
            .Pattern = "^(.+?)[,.]{1,2} *([^,.]+)$"
            For i = 1 To UBound(a, 1)
                If .test(a(i, 1)) Then
                    a(i, 2) = .Execute(a(i, 1))(0).submatches(0)
                    a(i, 3) = .Execute(a(i, 1))(0).submatches(1)
                Else
                    a(i, 2) = a(i, 1)
                End If
            Next
        End With
        .Value = a
    End With
End Sub

Thanx your code did a fantastic works.My problem has now been solved as usual with your kind help.