Email address question

[slyporter]

I have an excel sheet with multiple email addresses in each cell in one column. Some cells have no addresses, others have many, each cell is different. The email addresses are semicolon delimited, so it's easy to do Text to Columns to extract the individual email addresses into separate columns. However, I'd like to get all of the emails listed one by one in one column vs. spread out across multiple columns. Any help would be much appreciated.

Here's an example of the data for one column
cell 1: xxx@xx.com; xxy@xx.com; xxz@xx.com
cell 2: blank
cell 3: xxa@xx.com; xxb@xx.com
cell 4: xxc@xx.com; xxd@xx.com; xxe@xx.com; xxf@xx.com; xxg@xx.com

I'd like to end up with (all in one column):
xxx@xx.com
xxy@xx.com
xxz@xx.com
xxa@xx.com
xxb@xx.com
xxc@xx.com
xxd@xx.com
xxe@xx.com
xxf@xx.com
xxg@xx.com

Thanks!
-Scott

 

[Momentman]

Here's the data, raw and edited(in colummn B)

Excel 2013
	A	B
1	xxx@xx.com; [email]xxy@xx.com[/email]; [email]xxz@xx.com[/email]	xxx@xx.com
2		xxy@xx.com
3	xxa@xx.com; [email]xxb@xx.com[/email]	xxz@xx.com
4	xxc@xx.com; [email]xxd@xx.com[/email]; [email]xxe@xx.com[/email]; [email]xxf@xx.com[/email]; [email]xxg@xx.com[/email]	xxa@xx.com
5	trial	xxb@xx.com
6	xxc@xx.com; [email]xxd@xx.com[/email]; [email]xxe@xx.com[/email]; [email]xxf@xx.com[/email]; [email]xxg@xx.com[/email]	xxc@xx.com
7		xxd@xx.com
8		xxe@xx.com
9		xxf@xx.com
10		xxg@xx.com
11		xxc@xx.com
12		xxd@xx.com
13		xxe@xx.com
14		xxf@xx.com
15		xxg@xx.com
Sheet28

and here is the code

Sub SplitData()
    Dim I As Integer
    Dim j As Integer
    Dim ask
    Dim k As Integer
    
    k = 1
    For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(I, 1).Value = "" Or Not InStr(1, Cells(I, 1).Value, "@") > 0 Then
            GoTo skiplab
        Else
            ask = Split(Cells(I, 1).Value, ";")
            For j = LBound(ask) To UBound(ask)
                Range("B" & k).Value = Trim(ask(j))
                k = k + 1
            Next j
        End If
skiplab:
    Next I
End Sub