Split Function

     

     

     

  • This function is useful to split the data
  •  

     

    Download The Workbook

    Split cells value into Multiple

     

    Private Sub CommandButton1_Click()
    Range("C1").Value = "First"
    Range("D1").Value = "Second"
    For i = 2 To 145
    sp = Split(Cells(i, 2), " ")
    Cells(i, 3).Value = sp(0)
    Cells(i, 4).Value = sp(1)
    Next
    End Sub

     

     

    Download The Workbook