suppose in sheet1 range a1 u have a value like
a...@gmail.com a...@gmail.com a...@gmail.com a...@gmail.com
a...@gmail.com a...@gmail.com a...@gmail.com a...@gmail.com a...@gmail.com
ab...@gmail.com ab...@gmail.com ab...@gmail.com ab...@gmail.com
ab...@gmail.com a...@yahoomail.com a...@yahoomail.com a...@yahoomail.com
a...@hotmail.com a...@yahoomail.com a...@yahoomail.com a...@yahoomail.com
now result would be after running macro(macro i will paste in last)
result after macro--->
a...@gmail.com abc1 gmail.com a...@gmail.com abc2 gmail.com
a...@gmail.com abc3 gmail.com a...@gmail.com abc4 gmail.com a...@gmail.com
abc5 gmail.com a...@gmail.com abc6 gmail.com a...@gmail.com abc7 gmail.com
a...@gmail.com abc8 gmail.com a...@gmail.com abc9 gmail.com ab...@gmail.com
abc10 gmail.com ab...@gmail.com abc11 gmail.com ab...@gmail.com abc12
gmail.com ab...@gmail.com abc13 gmail.com ab...@gmail.com abc14 gmail.com
a...@yahoomail.com abc1 yahoomail.com a...@yahoomail.com abc2 yahoomail.com
a...@yahoomail.com abc3 yahoomail.com a...@hotmail.com abc4 hotmail.com
a...@yahoomail.com abc5 yahoomail.com a...@yahoomail.com abc6 yahoomail.com
a...@yahoomail.com abc7 yahoomail.com
here is the code--->
Option Explicit
Sub Macro1()
'''''''''''for more help visit http://groups.google.com/group/excel_vba
Sheets("sheet1").Columns("A:A").Select
Selection.TextToColumns Destination:=Range("b1"), DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar
_
:="@", FieldInfo:=Array(Array(1, 1), Array(2, 1)),
TrailingMinusNumbers:=True
End Sub
'''''''''''''''''''''''
''''enjoy :)
'''''''''''''''''''''''
On Tue, Dec 22, 2009 at 11:25 PM, Andre Gobet <andre.go...@sesamnet.ch>wrote:
> Hello
>
> I've a list in Excel of about 1000 e-mail adresses from our internal
> Database. Now i want to extract from this list only the domain names
> to put in to our Spam Filter for Whitelisting.
>
> Example List in Excel
> andre.go...@sesamnet.ch
> g...@bluewin.ch
>
> Now i'd like to have a list with only the Domain Names like
> sesamnet.ch or bluewin.ch. Are there an easy way to do this ?
>
> Thanks in advance
>
> - André
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
> http://www.excelitems.com
> 2. Excel tutorials at http://www.excel-macros.blogspot.com
> 3. Learn VBA Macros at http://www.vbamacros.blogspot.com
> 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
>
> To post to this group, send email to excel-macros@googlegroups.com
> If you find any spam message in the group, please send an email to:
> Ayush Jain @ jainayus...@gmail.com or
> Ashish Jain @ 26may.1...@gmail.com
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 6,500 subscribers worldwide and receive many nice notes about
> the learning and support from the group. Our goal is to have 10,000
> subscribers by the end of 2009. Let friends and co-workers know they can
> subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
