Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як витягти фактичні адреси з гіперпосилань у 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jon · 4 months ago
    Thank you, the VBA code worked like a charm :)
  • To post as a guest, your comment is unpublished.
    Kristy Neckowicz · 8 months ago
    Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed! 
  • To post as a guest, your comment is unpublished.
    Emily · 10 months ago
    How does this apply to Excel on Mac?
  • To post as a guest, your comment is unpublished.
    dduluk · 11 months ago
    I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
  • To post as a guest, your comment is unpublished.
    dduluk · 11 months ago
    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)
  • To post as a guest, your comment is unpublished.
    Stardust2150 · 11 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Thankful · 1 years ago
    Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
  • To post as a guest, your comment is unpublished.
    apodsim@gmail.com · 3 years ago
    Trying to save time creating multiple Hyperlinks and hoped this program would help with the task. I have combined several columns containing text into a single cell and then used the Edit/Link to create a working URL. Is there a tool to modify the URL to display text characters of the URL.
  • To post as a guest, your comment is unpublished.
    sujan9991@gmail.com · 3 years ago
    Hi, How to do the same in google sheets
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      hello, sujan,
      To extract all real addresses from hyperlinks in Google sheets, the following script code can help you:

      function linkURL(reference) {
      var sheet = SpreadsheetApp.getActiveSheet();
      var formula = SpreadsheetApp.getActiveRange().getFormula();
      var args = formula.match(/=\w+\((.*)\)/i);
      try {
      var range = sheet.getRange(args[1]);
      }
      catch(e) {
      throw new Error(args[1] + ' is not a valid range');
      }
      var formulas = range.getFormulas();
      var output = [];
      for (var i = 0; i < formulas.length; i++) {
      var row = [];
      for (var j = 0; j < formulas[0].length; j++) {
      var url = formulas[i][j].match(/=hyperlink\("([^"]+)"/i);
      row.push(url ? url[1] : '');
      }
      output.push(row);
      }
      return output
      }

      After copying and pasting the above code, go back to your sheet, and apply this formula:=linkURL(A2).
      Please try it, hope it can help you, thank you!
      • To post as a guest, your comment is unpublished.
        sujan9991@gmail.com · 3 years ago
        Hi,thank you for reply. I'm getting following error. and LinkUrl is not detecting as function
        • To post as a guest, your comment is unpublished.
          skyyang · 3 years ago
          Hi, sujan,
          The script code is worked correctly in my google sheet, see screenshot:
          • To post as a guest, your comment is unpublished.
            sujan9991@gmail.com · 3 years ago
            Hi Can you share with me a sample link please. The function is not detecting in my file
            • To post as a guest, your comment is unpublished.
              skyyang · 3 years ago
              Hi,
              Can you give your email account, and i will share the file with you!
              Thank you!
              • To post as a guest, your comment is unpublished.
                sujan9991@gmail.com · 3 years ago
                Sujan9991@gmail.com
                • To post as a guest, your comment is unpublished.
                  skyyang · 3 years ago
                  Sujan, I have shared the file with you, please check.
  • To post as a guest, your comment is unpublished.
    Victor Nieto · 4 years ago
    Thanks!!!!!
  • To post as a guest, your comment is unpublished.
    Neeks · 4 years ago
    Ah, amazing! Thank you!
  • To post as a guest, your comment is unpublished.
    sei · 4 years ago
    pretty..and nice...and fantabulouslyfntastikittilybumpershumperazardubiliousipaparazziastically yummy :P
    huh!
  • To post as a guest, your comment is unpublished.
    Stephanie · 4 years ago
    You have no idea how much time you saved me!!!
    Thank you so much!!!!!!!!!!!!!!!!!!!
  • To post as a guest, your comment is unpublished.
    Seocheckout.com · 6 years ago
    Very nice tool! I converted 16K+ links. Tool worked fast and flawless.
  • To post as a guest, your comment is unpublished.
    Alex T · 6 years ago
    Thanks so much!


    Saved me big time of having to do 800+ of these cells!
  • To post as a guest, your comment is unpublished.
    Nimrod · 6 years ago
    For some reason this doesn't work for me.
    I created the defined function just as you described, but it doesn't do anything :\
    I also want to merge it with the Hyperlink function, like so:
    =HYPERLINK(=getURL(A1), [A1])

    So that the final result will copy A1's URL and display it as A1's text string (i.e. just copy A1 to another cell, including both its text and hyperlink. A simple thing which Excel doesn't seem to be able to do for some reason...).
  • To post as a guest, your comment is unpublished.
    Zach Solomon-Beloin · 6 years ago
    This saved me a ton of time! I extracted 500 profile IDs from 500+ names linked to their profiles. This code worked extremely well and was easy to follow. Thanks so much!
  • To post as a guest, your comment is unpublished.
    AJITA · 6 years ago
    Superb! reduced my work to less than a minute.
  • To post as a guest, your comment is unpublished.
    Tj · 7 years ago
    thanks for saving me 15mins
  • To post as a guest, your comment is unpublished.
    Arun Kumar · 7 years ago
    This is the first ever macro based excel tip that worked for me. Thank you very much for making the lives of excel dummies better.
  • To post as a guest, your comment is unpublished.
    Monica · 7 years ago
    Thank you so much :lol: I used the VBA method and it worked like a charm in Excel 365 on a Windows 8.1 OS
  • To post as a guest, your comment is unpublished.
    chris · 7 years ago
    thanks a ton. like everyone else here. this is very helpful and easy.
  • To post as a guest, your comment is unpublished.
    Eva · 7 years ago
    Super! So easy. Thanks!
  • To post as a guest, your comment is unpublished.
    Tzally · 7 years ago
    Thanks a lot! Very helpful yet simple and clear. Just as Albert meant :roll:
  • To post as a guest, your comment is unpublished.
    JC · 7 years ago
    Thankyou so much. it really helped me
  • To post as a guest, your comment is unpublished.
    Thank You · 7 years ago
    Thanks buddy.It really work in seconds.
  • To post as a guest, your comment is unpublished.
    fab · 7 years ago
    You are the best, so easy to follow!
  • To post as a guest, your comment is unpublished.
    Awesome · 7 years ago
    Thank you so much this saved my ass and make me look good.
    8)
  • To post as a guest, your comment is unpublished.
    Respected · 7 years ago
    Thank You SO SO much!
  • To post as a guest, your comment is unpublished.
    vish · 7 years ago
    thnx u made my work so easy
  • To post as a guest, your comment is unpublished.
    PO · 7 years ago
    This just saved me! Thanks
  • To post as a guest, your comment is unpublished.
    mari · 7 years ago
    thanks so much!!! :D
  • To post as a guest, your comment is unpublished.
    bla bla · 8 years ago
    Thankyou so much. it really helped me