Splitting data in Cells

Hi Everyone,

I have a load of cells that contain email addresses, and i need to split these addresses down, to show only the domain names.

Is there a quick way of doing this, or do i need to click into every cell and delete the 1st half of the address?

Many Thanks

James

Hi Everyone,

I have a load of cells that contain email addresses, and i need to split these addresses down, to show only the domain names.

Is there a quick way of doing this, or do i need to click into every cell and delete the 1st half of the address?

Many Thanks

James

James try text to column option in data tools to split the cells.

tek9step

Hi james_edstrom
try...

Option Explicit
Sub ptest()
    Dim rng As Range, p As Range
    Set rng = ActiveSheet.Range("B1:B12")
    With CreateObject("VBScript.RegExp")
        .MultiLine = False
        .Global = False
        .IgnoreCase = True
        .Pattern = "^([a-z0-9_\.\-]+)\@(([a-z0-9\-]+\.)+)([a-z]+)$"
        For Each p In rng
            If .Test(p) = True Then
                p.Offset(0, 1) = "Valid"
                p.Offset(0, 2) = .Replace(p, "$1")
                p.Offset(0, 3) = .Replace(p, "$2")
                p.Offset(0, 4) = .Replace(p, "$4")
            Else
                p.Offset(0, 1) = "InValid"
            End If
        Next
    End With
End Sub

adjust ranges to suit

Hi,

How about this:

=RIGHT(A1,LEN(A1)-FIND("@",A1))

or use data > text to columns > delimited > custom > @

oopsie, there's some double posting going on. Mods, please merge?

oopsie, there's some double posting going on. Mods, please merge?

Thanks everyone, very helpful!