Преобразовать ссылки в гиперссылки excel

hawbsl

15.1k24 gold badges73 silver badges113 bronze badges

If you don’t want to make a macro and as long as you don’t mind an additional column, then just create a new column alongside your column of URLs.

In the new column type in the formula =HYPERLINK(A1) (replacing A1 with whatever cell you are interested in). Then copy the formula down the rest of the 200 entries.

NOTE: This solution does not work if the cell A1 contains a string longer than 255 characters. It results in a #VALUE! error

Create the macro as here:

On the Tools menu in Microsoft Excel, point to Macro, and then click Visual Basic Editor.
On the Insert menu, click Module.
Copy and paste this code into the code window of the module.
It will automatically name itself HyperAdd.

Sub HyperAdd()

    'Converts each text hyperlink selected into a working hyperlink

    For Each xCell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    Next xCell

End Sub

When you’re finished pasting your macro, click Close and Return to Microsoft Excel on the File menu.

Then select the required cells and click macro and click run.

NOTE Do NOT select the whole column! Select ONLY the cells you wish to be changed to clickable links else you will end up in a neverending loop and have to restart Excel!
Done!

Pretty easy way for rather short lists:

1. Double click on the box where the url is
2. Enter

You have your link

Here’s a way I found. I’m on a Mac using Excel 2011.
If column B had the text values you want to be hyperlinks, put this formula in the cell C1 (or D1 or whatever as long as it’s a free column): =HYPERLINK(B1,B1)
This will insert a hyperlink with the location as the link text and the «friendly name» as the link text. If you have another column that has a friendly name for each link, you could use that too.
Then, you could hide the text column if you didn’t want to see it.

If you have a list of IDs of something, and the urls were all http://website.com/folder/ID, such as:

A1  | B1
101 | http://website.com/folder/101
102 | http://website.com/folder/102
103 | http://website.com/folder/103
104 | http://website.com/folder/104

you could use something like =HYPERLINK("http://website.com/folder/"&A1,A1) and you wouldn’t need the list of urls. That was my situation and worked nicely.

According to this post: http://excelhints.com/2007/06/12/hyperlink-formula-in-excel/ this method will work in Excel 2007 as well.

OK, here’s a hokey solution, but I just can’t figure out how to get Excel to evaluate a column of URLs as hyperlinks in bulk.

1. Create a formula, ="=hyperlink(""" & A1 & """)"
2. Drag down
3. Copy new formula column
4. Paste Special Values-only over the original column
5. Highlight column, click Ctrl—H (to replace), finding and replacing = with = (somehow forces re-evaluation of cells).
6. Cells should now be clickable as hyperlinks. If you want the blue/underline style, then just highlight all cells and choose the Hyperlink style.

The hyperlink style alone won’t convert to clickable links, and the «Insert Hyperlink» dialog can’t seem to use the text as the address for a bunch of cells in bulk. Aside from that, F2 and Enter through all cells would do it, but that’s tedious for a lot of cells.

If adding an extra column with the hyperlinks is not an option,
the alternative is to use an external editor to enclose your hyperlink into =hyperlink(" and "), in order to obtain =hyperlink("originalCellContent")

If you have Notepad++, this is a recipe you can use to perform this operation semi-automatically:

• Copy the column of addresses to Notepad++
• Keeping ALT—SHIFT pressed, extended your cursor from the top left corner to the bottom left corner, and type =hyperlink(". This adds =hyperlink(" at the beginning of each entry.
• Open «Replace» menu (Ctrl—H), activate regular expressions (ALT—G), and replace $ (end of line) with "). This adds a closed quote and a closed parenthesis (which needs to be escaped with when regular expressions are activated) at the end of each line.
• Paste back the data in Excel. In practice, just copy the data and select the first cell of the column where you want the data to end up.

answered May 8, 2017 at 13:53

I shocked Excel didn’t do this automatically so here is my solution I hope would be useful for others,

1. Copy the whole column to clipboard
2. Open this on your Chrome or Firefox

data:text/html,<button onclick="document.write(document.body.querySelector('textarea').value.split('n').map(x => '<a href='' + x + ''>' + x + '</a>').join('<br>'))">Linkify</button><br><textarea></textarea>

1. Paste the column on the page you just opened on the browser and press «Linkify»
2. Copy the result from the tab to the the column on Excel

Instead step two, you can use the below page, first, click on «Run code snippet» then paste the column on it

<button onclick="document.write(document.body.querySelector('textarea').value.split('n').map(x => '<a href='' + x + ''>' + x + '</a>').join('<br>'))">Linkify</button><br><textarea></textarea>

answered Sep 17, 2018 at 21:06

This method works for me using the hyperlink function:

=HYPERLINK("http://"&B10,B10)

Where B10 is the cell containing the text version of the URL (in this example).

VinVin

1,6655 gold badges26 silver badges33 bronze badges

With Excel 2007 on Windows, I found these steps simplest;

1. Select cells with the non-active URLs
2. Copy
3. Paste as hyperlink

I found that none of the methods here worked if the hyperlink did not include http:// as they linked to local locations.

I also wanted to fool-proof the script as the users would not be able to maintain it themselves and I would not be available.

It will only run on cells in a selected range if they contain a dot and no spaces. It will only run for up to 10,000 cells.

Sub HyperAdd()
Dim CellsWithSpaces As String
    'Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
        If xCell.Formula = "" Or InStr(xCell.Formula, ".") = NotPresent Then
        'Do nothing if the cell is blank or contains no dots
        Else
            If InStr(xCell.Formula, " ") <> 0 Then
                CellsWithSpaces = CellsWithSpaces & ", " & Replace(xCell.Address, "$", "")
                 GoTo Nextxcell
            End If

            If InStr(xCell.Formula, "http") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "http://" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        End If
        i = i + 1
        If i = 10000 Then Exit Sub
Nextxcell:
      Next xCell
    If Not CellsWithSpaces = "" Then
        MsgBox ("Please remove spaces from the following cells:" & CellsWithSpaces)
    End If
Application.ScreenUpdating = True
End Sub

answered Apr 15, 2015 at 9:28

AbuMariamAbuMariam

3,15213 gold badges49 silver badges79 bronze badges

For anyone landing here with Excel 2016, you can simply highlight the column, then click the Hyperlink tab located on the Home ribbon in the Styles box.

Edit: Unfortunately, this only updates the cell style, not the function.

answered Oct 6, 2017 at 19:46

th3an0malyth3an0maly

3,3008 gold badges33 silver badges54 bronze badges

answered Jun 9, 2014 at 14:43

Thank you Cassiopeia for code. I change his code to work with local addresses and made little changes to his conditions. I removed following conditions:

1. Change http:/ to file:///
2. Removed all type of white space conditions
3. Changed 10k cell range condition to 100k

Sub HyperAddForLocalLinks()
Dim CellsWithSpaces As String
    'Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
            If InStr(xCell.Formula, "file:///") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "file:///" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        i = i + 1
        If i = 100000 Then Exit Sub
Nextxcell:
      Next xCell
    Application.ScreenUpdating = True
End Sub

answered Nov 23, 2016 at 7:11

RKORKO

16110 bronze badges

answered May 26, 2021 at 7:37

Easiest way here

• Highlight the whole column
• click »insert»
• click »Hyperlink»
• click »place in this document»
• click ok
• thats all

The simplest way in Excel 2010:
Select the column with the URL text, then select Hyperlink Style from the Home tab.
All URLs in the column are now hyperlinks.

Also double clicking each cell at the end of the URL text and adding a blank or just enter will also produce a hyperlink. Similar to the way you have to create URL links in MS Outlook emails.

answered Nov 19, 2013 at 13:13

answered Oct 5, 2012 at 17:11