Sub TestMacro()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim k As Long
Dim str1() As String
Dim str2() As String
Dim i As Integer
k = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count
For i = 1 To k
splitValues = Split(ActiveSheet.Cells(i, "A").Value)
ActiveSheet.Cells(i, "B").Value = splitValues(0)
ActiveSheet.Cells(i, "C").Value = splitValues(1)
Next i
End Sub
Sub TestMacro()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1"
Dim k As Long
Dim str1() As String
Dim str2() As String
Dim i As Integer
k = sh.Range("A1", sh.Range("A1".End(xlDown)).Rows.Count
For i = 1 To k
splitValues = Split(ActiveSheet.Cells(i, "A".Value)
ActiveSheet.Cells(i, "B".Value = splitValues(0)
ActiveSheet.Cells(i, "C".Value = splitValues(1)
Next i
End Sub
Last reply 1 hour ago
Official University College London Applicant Thread for 2024Last reply 6 days ago
Anyone else applying/has applied to UCL's Robotics and AI MEng course??Last reply 1 week ago
2024 MRes Developmental Neuroscience and Psychopathology UCL/YaleLast reply 1 hour ago
Official University College London Applicant Thread for 2024Last reply 6 days ago
Anyone else applying/has applied to UCL's Robotics and AI MEng course??Last reply 1 week ago
2024 MRes Developmental Neuroscience and Psychopathology UCL/Yale