PDA

View Full Version : Solved: Delete from special character



u25103
10-28-2008, 05:34 AM
Hi
This is my problem.
I've exported my email "junkmailist" to an excel sheet and now i want to extract or delete everything but @("domain name")

ex
free_animalpic@gtr.org (free_animalpic@gtr.org) to @gtr.org
free_wildlifepictures@juy_mkjlk.us.org (free_wildlifepictures@juy_mkjlk.us.org) to @juy_mkjlk.us.org

Manny thanks

is this possible with vba cod?

Bob Phillips
10-28-2008, 06:02 AM
Sub StripData()
Dim inValue As String

inValue = "free_animalpic@gtr.org"
MsgBox Mid(inValue, InStr(inValue, "@"))
inValue = "free_wildlifepictures@juy_mkjlk.us.org"
MsgBox Mid(inValue, InStr(inValue, "@"))
End Sub

mdmackillop
10-28-2008, 06:09 AM
=RIGHT(A1,1+LEN(A1)-FIND("@",A1))

Krishna Kumar
10-28-2008, 08:03 PM
=REPLACE(A1,1,FIND("@",A1&"@")-1,"")

or

=MID(A2,FIND("@",A2&"@"),50)