Splitting a full name + numbers into into 3 cells - excel

Question

I am trying to split the following data (using VBA)
An example of the text I have is below
Scott Hamilton 1/2
I would like to display it like this on the same line
A15 Scott Hamilton
B15 1
C15 2
The cell always contains a name (first and last) and then there stats ie 1 of 2
I would like to split as above
Hope someone can help - Have attached a picture of some of my data (as this will have other text already on the sheet which I cannot move/change)
http://i40.tinypic.com/riyq9x.jpg
Edit:
Sorry forgot to add my attempt;
Sub SplitName()
Dim SplitName() As String
SplitName = Split(ActiveSheet.Cells(15, 1).Value)
Cells(15, 1) = SplitName(0) + " " + SplitName(1)
Cells(15, 2) = SplitName(2)
Cells(15, 3) = SplitName(3)
End Sub

Answer 1

I think first you need to split string before you find number. So first you need to get string occuring before number. In your case you split string before number occurs.
So you will get 2 strings as
Scott Hamilton and 1/2
Then split remaining string with seperator as "/"
So try like below
Dim str As String
Dim i As Integer
Dim strArray() As String
str = ActiveCell.Value
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then
LeftString = Left(str, i – 1)
RightString = Right(str, Len(str) – i + 1)
Exit For
End If
Next i
Now split RightString with "/"
So do below
strArray = Split(RightString , "/")
This will seperate text 1/2
Hope you got the idea. I haven't tested this code. This is just idea which should work.

Answer 2

One way...
Sub tgr()
Dim rngFound As Range
Dim strFraction As String
Set rngFound = Columns("A").Find("/", , xlValues, xlPart)
If Not rngFound Is Nothing Then
Do
strFraction = Trim(Right(Replace(WorksheetFunction.Trim(rngFound.Text), " ", String(99, " ")), 99))
rngFound.Resize(, 3).Value = Array(Trim(Replace(rngFound.Text, strFraction, "")), _
Split(strFraction, "/")(0), _
Split(strFraction, "/")(1))
Set rngFound = Columns("A").Find("/", rngFound, xlValues, xlPart)
Loop While Not rngFound Is Nothing
End If
End Sub

Answer 3

You have a good start, but here are a few suggestions:
1. You might name your string as something different than the subroutine. Naming both as splitname is bad practice here.
2. Using the split function without stating a delimiter means split does its work based on a space (" "), so it will not split 1/2 into 1 and 2.
3. You say you would like to display on the same line, but in row A, B, C. If you want displayed in seperate rows, the first portion of cells should change, not the second portion.

Answer 4

Sub SplitName()
Dim Cell As Range, LastSpace As Long
Set Cell = ActiveSheet.Cells(15, 1)
LastSpace = InStrRev(Cell.Text, " ")
Cell.Offset(, 1).Resize(, 2).Value = Split(Mid(Cell.Text, LastSpace + 1), "/")
Cell.Value = Left(Cell.Text, LastSpace - 1)
End Sub
This is solution for cell A15, I assume you can generalize operation.

Answer 5

jQuery( window ).load(function() {
jQuery("#FullNametest").change(function(){
var temp = jQuery(this).val();
var fullname = temp.split(" ");
var firsname='';
var middlename='';
var lastname = '';
firstname=fullname[0];
lastname=fullname[fullname.length-1];
for(var i=1; i < fullname.length-1; i++)
{
middlename = middlename +" "+ fullname[i];
}
jQuery('#FirstName').val(firstname);
jQuery('#middlename').val(middlename);
jQuery('#LastName').val(lastname);
});
});