Question

The links appear hyperlinked with blue line in Excel, I want to extract the text from the link e.g.
The url http:\sea.craigslist.com appears as “seattle” in excel. I want to extract the text “sea” out of the link and paste in a next column.

Answer 1

You can create a user defined function (UDF) to extract the data.

• Open your workbook.
• Open the VBA Editor by pressing Alt+F11
• Insert a new module by using the menu Insert -> Module
• Copy and paste in the function code listed below
• Close the VBA Editor by using the menu File -> Close and return to Microsoft Excel
• Assuming the first link is in cell A1, in cell B1 type in the formula =GetPart(A1)
• Copy the formula down as required

The formula should return the value ‘sea’ in cell B1

Function GetPart(cell As Range) As String

    Dim iStart As Integer
    Dim iEnd As Integer
    Dim iLen As Integer

        If (cell.Range("A1").Hyperlinks.Count <> 1) Then
            GetPart = ""
        Else
            GetPart = cell.Range("A1").Hyperlinks(1).Address
            iStart = InStr(1, GetPart, "//") + 2
            iEnd = InStr(1, GetPart, ".")
            iLen = iEnd - iStart
            GetPart = Mid(GetPart, iStart, iLen)
        End If

End Function