Перейти до основного матеріалу

Як витягти фактичні адреси з гіперпосилань у Excel?

Припустимо, у вас є ряд комірок, які містять гіперпосилання, і тепер вам потрібно побачити справжнє призначення гіперпосилань та витягти їх із гіперпосилань, як показано на наступному знімку екрана. Чи є прості способи швидко вирішити цю проблему? Ця стаття допоможе вам отримати фактичні адреси з декількох гіперпосилань.


стрілка синя права міхур Витягуйте фактичні адреси з гіперпосилань за допомогою функції редагування гіперпосилання

Ось тут Редагувати гіперпосилання функція може допомогти вам витягнути базову URL-адресу для кожного з цих гіперпосилань і помістити цю фактичну адресу в іншу комірку. Ви можете зробити так:

1. Виділіть комірку з гіперпосиланням і клацніть правою кнопкою миші, у контекстному меню виберіть Редагувати гіперпосилання, див. скріншот:

2. І ан Редагувати гіперпосилання з'явиться діалогове вікно, виберіть та скопіюйте (Ctrl + C) всю URL-адресу з адреса поле діалогового вікна.

3. Потім закрийте діалогове вікно та вставте фактичну адресу в будь-яку потрібну комірку.

примітки: За допомогою цього методу ви можете кожного разу витягувати лише одну адресу гіперпосилання, але якщо у вас є кілька гіперпосилань, які потрібно витягти, вам потрібно застосовувати цю функцію неодноразово.


стрілка синя права міхур Витягніть фактичні адреси з гіперпосилань за допомогою коду VBA

Для багатьох гіперпосилань вищезазначений метод буде нудним та трудомістким, тому наведений нижче код VBA може допомогти вам швидко вилучити кілька адрес з гіперпосилань одночасно.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

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:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Потім натисніть F5 клавіша для запуску коду, і з'явиться діалогове вікно для вибору гіперпосилань, які потрібно витягти з реальних адрес, див.

4. Потім натисніть OK, а вибраний вміст комірки було перетворено на справжні адреси гіперпосилань у вихідному діапазоні. Дивіться скріншоти:


стрілка синя права міхур Витягніть фактичні адреси з гіперпосилань за допомогою функції User Definde

Наступна визначена користувачем функція також може витягти фактичний URl з гіперпосилань.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Збережіть код і закрийте вікно, виберіть пусту комірку, щоб ввести цю формулу = GetURL (A2) (A2 - клітинка, в якій знаходиться гіперпосилання), і натисніть Що натомість? Створіть віртуальну версію себе у кнопку. Ви можете бачити, як справжня адреса гіперпосилання витягнута.


стрілка синя права міхур Отримайте фактичні адреси з гіперпосилань за допомогою Kutools для Excel швидко та легко

Ось зручний інструмент, який називається Kutools для Excel, З його Перетворити гіперпосилання функція, ви можете швидко впоратися з наступними операціями:

  • Витяг фактичних адрес з гіперпосилань;
  • Перетворити текст URL-адреси на гіперпосилання, які можна натиснути.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів.

Якщо ви встановили Kutools для Excel, будь ласка, виконайте наступне:

1. Виберіть діапазон, який містить гіперпосилання, які потрібно розпакувати.

2. Клацання Кутулс > посилання > Перетворити гіперпосилання, див. скріншот:

3, в Перетворити гіперпосилання діалогове вікно, виберіть Адреси гіперпосилань замінюють вміст комірок і натисніть doc-кнопка1 кнопка від Діапазон результатів щоб вказати клітинку для розміщення результату.

4. А потім клацніть OK, фактичні адреси були вилучені з гіперпосилань. Дивіться знімок екрана:

примітки: Якщо ви хочете встановити фактичні адреси до початкового діапазону, перевірте Перетворити діапазон джерела.

Натисніть Перетворити гіперпосилання щоб дізнатися більше про цю функцію.

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


стрілка синя права міхур Демо: Витягніть фактичні адреси з гіперпосилань за допомогою Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Пов'язана стаття:

Як перетворити текст URL-адреси на гіперпосилання, яке можна натиснути в Excel?

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (44)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour
Auriez vous une solution pour mettre en place le fonctionnement par la formule sur Excel 365 sur Mac ?
This comment was minimized by the moderator on the site
Hello, Edouard,
Sorry, the methods in this article are only applied to Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Ola colegas ,

Tenho uma planilha com mais de 2000 linhas, preciso exportar o documento que esta no hiperlink estas celulas, para um diretório da maquina, alguém sabe como fazer ?

agradeço a atenção

at..
cássia
This comment was minimized by the moderator on the site
Thank you it solve my problem
This comment was minimized by the moderator on the site
Thank you, the VBA code worked like a charm :)
This comment was minimized by the moderator on the site
Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed!
This comment was minimized by the moderator on the site
How does this apply to Excel on Mac?
This comment was minimized by the moderator on the site
I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
This comment was minimized by the moderator on the site
If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...
=HYPERLINK("https://www.google.com","Google Homepage")
...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...
=MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
This comment was minimized by the moderator on the site
Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
This comment was minimized by the moderator on the site
Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations