[excel-2007] How do I convert a column of text URLs into active hyperlinks in Excel?
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!
I have a column in excel, wherein I have all the website url values. My question is I want to turn the url values to active links. There are about 200 entries in that column with different urls in all cells. Is there a way I can create active hyperlinks to all the cells without writing a macro.
This method works for me using the hyperlink function:
B10 is the cell containing the text version of the URL (in this example).
Put the URLs into an HTML table, load the HTML page into a browser, copy the contents of that page, paste into Excel. At this point the URLs are preserved as active links.
Solution was proposed on http://answers.microsoft.com/en-us/mac/forum/macoffice2008-macexcel/how-to-copy-and-paste-to-mac-excel-2008-a-list-of/c5fa2890-acf5-461d-adb5-32480855e11e by (Jim Gordon Mac MVP)[http://answers.microsoft.com/en-us/profile/75a2b744-a259-49bb-8eb1-7db61dae9e78]
I found that it worked.
I had these URLs:
https://twitter.com/keeseter/status/578350771235872768/photo/1 https://instagram.com/p/ys5ASPCDEV/ https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg https://twitter.com/ranadotson/status/539485028712189952/photo/1 https://instagram.com/p/0OgdvyxMhW/ https://instagram.com/p/1nynTiiLSb/
I put them into an HTML file (links.html) like this:
<table> <tr><td><a href="https://twitter.com/keeseter/status/578350771235872768/photo/1">https://twitter.com/keeseter/status/578350771235872768/photo/1</a></td></tr> <tr><td><a href="https://instagram.com/p/ys5ASPCDEV/">https://instagram.com/p/ys5ASPCDEV/</a></td></tr> <tr><td><a href="https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg">https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg</a></td></tr> <tr><td><a href="https://twitter.com/ranadotson/status/539485028712189952/photo/1">https://twitter.com/ranadotson/status/539485028712189952/photo/1</a></td></tr> <tr><td><a href="https://instagram.com/p/0OgdvyxMhW/">https://instagram.com/p/0OgdvyxMhW/</a></td></tr> </table>
Then I loaded the links.html into my browser, copied, pasted into Excel, and the links were active.
You can insert the formula
=HYPERLINK(<your_cell>,<your_cell>) to the adjacent cell and drag it along all the way to the bottom. This will give you a column with all the links. Now, you can select your original column by clicking on the header, right-click, and select
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.
Replace A1 with your text of email address cell.
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:
- Removed all type of white space conditions
- 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
Pretty easy way for rather short lists:
- Double click on the box where the url is
You have your link ;)
If adding an extra column with the hyperlinks is not an option, if you have notepad++ installed you can:
- Copy the column of addresses to Notepad++
- Keeping ALT-SHIFT pressed, extended your cursor from the top left corner to the bottom right 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.