Excel Macro to Split Multiple Columns into rows

[snb]

or

Sub M_snb()
    sn = Cells(1).CurrentRegion
    ReDim sp(UBound(sn) * 3, 3)
    
    y = 0
    For j = 1 To UBound(sn)
      st = Split(sn(j, 2), ",")
      For jj = 0 To UBound(st)
         sp(y, 0) = sn(j, 1)
         sp(y, 1) = st(jj)
         sp(y, 2) = Split(sn(j, 3), ",")(jj)
         sp(y, 3) = Split(sn(j, 4), ",")(jj)
         y = y + 1
      Next
    Next

    Cells(10, 1).Resize(UBound(sp) + 1, 4) = sp
End Sub