Split name and bachelor

[daboho]

I have data in A1:A5
Like this
Prof.Marchel,M,si
Iwano,M,Phil
Alonso,ST
Ir.soekarno
Drs.nanan karno,M.sc
I want separate name and bachelor
For example
B1 = Prof ,C1= Marchel,D1= M,Si
B2 = ,C2=iwano,D2=M,Phil
B3 = ,C3 =Alonso,D3 =ST
B4 =Ir ,C4 = Soekarno,D3 =
B5 = Drs,C5 = Nanan Karno,D5=M.sc
Thank for your help

[jindon]

Sub test()
    Dim r As Range
    With CreateObject("VBScript.RegExp")
        .Pattern = "^((.*?)\. *)?([^,]+),?( *(.+))?"
        For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
            If .test(r.Value) Then r(, 2).Resize(, 3).Value = Split(.Replace(r.Value, "$2^$3^$5"), "^")
        Next
    End With
End Sub

[daboho]

Thankyou.jindon

[jindon]

If that takes care of your original question, select Thread Tools from the menu link above and mark this thread as SOLVED.

[daboho]

Jindon if in A6 = jindon,M.Si
In c6 = jindon,m d6 = Si
I want in c6 = Jindon and d6 = M.Si

[jindon]

You need to upload a workbook with the data and the result that you want.