I have a column of about 500 names each of which has an email address
immediately to the right of the name, such as
Peter Pan

I need the <pancity2dot.com in a separate column.

Can you help?
--
Templar

If there is a space between name and email, try Data - text to columns,
use space as delimiter


--
Pecoflyer

Cheers -
*_Membership_is_free_* & allows file upload -faster and better answers
------------------------------------------------------------------------
Pecoflyer's Profile: http://www.thecodecage.com/forumz/member.php?userid=14
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=44196

On Thu, 25 Dec 2008 12:07:01 -0800, Templar
wrote:

I have a column of about 500 names each of which has an email address
immediately to the right of the name, such as
Peter Pan

I need the <pancity2dot.com in a separate column.

Can you help?


If the original data is in column A starting at row 1,
try the following formula in cell B1

=MID(A1,FIND("<",A1),999)

Copy down 500 rows.

Column B will now contain the part of the data that starts with a "<"

Hope this helps / Lars-Åke

This works on column A
Sub Test()

Columns("A:A").TextToColumns Destination:=Range("A1"),
DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=True,
Semicolon _
:=False, Comma:=False, Space:=False, Other:=True,
OtherChar:="<", _
FieldInfo:=Array(Array(1, 1), Array(2, 1)),
TrailingMinusNumbers:=True
Set Rng = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
For Each c In Rng
c.Value = "<" & c.Value
Next c
End Sub


--
mikeaj72
------------------------------------------------------------------------
mikeaj72's Profile: http://www.thecodecage.com/forumz/member.php?userid=46
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=44196