I have been given a spreadsheet with one column having approximately 1500
entries of First Name ( Some with Middle Initial ) Last name, in order to
upload this list into another program I need to have this one column become
two columns, one with all the first names and / initial if present, & the
second column with all the last names.

How do I do this without manually retyping all the names into the two new
columns?

Split active cell when run
(make a shortcut)

Sub test()
theCell = ActiveCell.Value
For x = 1 To Len(theCell)
If Mid(theCell, x, 1) = " " Then nr = x
Next
ActiveCell.Offset(0, 1) = Mid(theCell, nr + 1, 255)
ActiveCell = Mid(theCell, 1, nr - 1)
ActiveCell.Offset(1, 0).Select
End Sub


"Marvin" skrev:

I have been given a spreadsheet with one column having approximately 1500
entries of First Name ( Some with Middle Initial ) Last name, in order to
upload this list into another program I need to have this one column become
two columns, one with all the first names and / initial if present, & the
second column with all the last names.

How do I do this without manually retyping all the names into the two new
columns?

Have a look at how Chip Pearson handles this type of data.

http://www.cpearson.com/excel/FirstLast.htm

Note the downloadable workbook with examples should you need it.


Gord Dibben MS Excel MVP

On Tue, 1 May 2007 13:43:00 -0700, Marvin
wrote:

I have been given a spreadsheet with one column having approximately 1500
entries of First Name ( Some with Middle Initial ) Last name, in order to
upload this list into another program I need to have this one column become
two columns, one with all the first names and / initial if present, & the
second column with all the last names.

How do I do this without manually retyping all the names into the two new
columns?