How can I extract URL from hyperlinks?

1. Open up a new workbook.
2. Get into VBA (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste the Excel user defined function below
5. Press F5 and click “Run”
6. Get out of VBA (Press Alt+Q)

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

tachyglossus 

For More Info

tachyglossus

Here's another non-scripting method I've used for years.

1. Copy your column containing the links and paste it into a Word document.

2. Save your Word document as "Web Page (*.htm, *.html)".

3. Right-click on the .htm file and open in Notepad (to view the html source code).

4. Find the rows of code that contain your hyperlinks and copy them, then paste into a Word document. 

5. Use find and replace to delete unwanted code until you are left with only the hyperlinks. 

6. Create a new column next to your original column in your spreadsheet and paste them in. 

7. Check the beginning and end to make certain the URLs are pasted back into the corresponding rows.

tachyglossus 

Hello, you can follow the steps in the link below

https://howtouseexcel.net/how-to-extract-a-url-from-a-hyperlink-on-excel

tachyglossus 

Extracting a URL from a hyperlink on Excel is easy!

Option 1: If you want to run this operation one time

1. Open up a new workbook.
2. Get into VBA (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste the Excel user defined function below
5. Press F5 and click “Run”
6. Get out of VBA (Press Alt+Q)

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

Option 2: If you plan to add more hyperlinks to the spreadsheet and need to store the formula on the sheet

1. Open up a new workbook.
2. Get into VBA (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste the Excel user defined function below
5. Get out of VBA (Press Alt+Q)
6. Use this syntax for this custom Excel function: =GetURL(cell,[default_value])

Function GetURL(cell As range, _
Optional default_value As Variant)
'Lists the Hyperlink Address for a Given Cell
'If cell does not contain a hyperlink, return default_value
If (cell.range("A1").Hyperlinks.Count <> 1) Then
GetURL = default_value
Else
GetURL = cell.range("A1").Hyperlinks(1).Address & "#" & cell.range("A1").Hyperlinks(1).SubAddress
End If
End Function 

For more visit esyExcel

tachyglossus 

As variant

=LET(
    range,    A1:A2,
    str,      FORMULATEXT( range ),
    start,    FIND( """", str )+1,
    end,      FIND( """", str, start ),
    MID( str, start, end-start )  )

tachyglossus I think I found a better way using Flash Fill.

1. If Column A contains the Hyperlink text, click on the first two links (e.g. A1 and A2). Then copy/paste those two URL to notepad. You need this text to get Flash Fill to work.

2. Make a new column in excel for the URL, for example Column B

3. In B1 start typing in the URL from notepad that matches the link in Cell A1.  Type the URL exactly as it appears in notepad

4. Once completed, in B2, start typing the next URL from notepad, Excel's Flash Fill will take over and suggest the URLs for all remaining cells.

No formulas, no Macros, No VBA.

tachyglossus 

Hello,

1. Right-click a hyperlink.
2. From the Context menu, choose Edit Hyperlink. Excel displays the Edit Hyperlink dialog box.
3. Select and copy (Ctrl+C) the entire URL from the Address field of the dialog box.
4. Press Esc to close the Edit Hyperlink dialog box.
5. Paste the URL into any cell desired.

tachyglossus 

Extract actual addresses from hyperlinks with VBA code

Press on the heading to get more possibilities and options.

Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

  Click Insert> Module and paste the following code into the module window.

Sub Extracthyperlinks ()

'Updateby Extendoffice

Dim Rng As Range

Dim WorkRng As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 😎

For Each Rng In WorkRng

     If Rng.Hyperlinks.Count> 0 Then

         Rng.Value = Rng.Hyperlinks.Item (1) .Address

     End If

Next

End Sub

Then press F5 when you press the key to run the code, it will bring up a dialog box for you to choose the hyperlinks that you want to extract the actual addresses from.

Then click OK and the selected cell contents will be converted to the real hyperlink addresses in the original range.

Without using macros, you can follow below steps.

1. Right-click a hyperlink. You'll see a Context menu appear.
2. From the Context menu, choose Edit Hyperlink. Excel displays the Edit Hyperlink dialog box
3. Select and copy the entire URL from the Address field of the dialog box.
4. Press Escape to close the Edit Hyperlink dialog box.
5. Paste the URL into any cell desired.


With Macro

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub


Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function



=GetURL(A1)

Hopefully you will get it solved, Follow to learn more TownTasks