Note: The other languages of the website are Google-translated. Back to English

Як скопіювати гіперпосилання лише з однієї комірки в іншу в Excel?

Припустимо, у мене є список значень у стовпці A, і кожна клітинка містить різне гіперпосилання, тепер я хочу скопіювати лише гіперпосилання без тексту в інший стовпець E, як показано на наступному знімку екрана. Можливо, прямого способу вирішити цю роботу в Excel немає, але тут я можу ввести код VBA для роботи з нею.

doc скопіювати гіперпосилання в іншу комірку 1

Скопіюйте гіперпосилання з однієї комірки в іншу за допомогою коду VBA


стрілка синя права міхур Скопіюйте гіперпосилання з однієї комірки в іншу за допомогою коду VBA

Щоб скопіювати лише адреси гіперпосилань без тексту в інші комірки, такий код може зробити вам послугу, будь ласка, як це:

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

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

Код VBA: копіювати гіперпосилання лише з однієї комірки в іншу:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. А потім натисніть F5 клавіші для запуску цього коду, відкриється діалогове вікно з нагадуванням вибрати клітинки, які потрібно скопіювати лише гіперпосилання, див.

doc скопіювати гіперпосилання в іншу комірку 02

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

doc скопіювати гіперпосилання в іншу комірку 03

5. А адреси гіперпосилань скопійовані з вихідних комірок до вказаних комірок, як вам потрібно, див. Знімок екрана:

doc скопіювати гіперпосилання в іншу комірку 04

примітки: Цей код також може допомогти вам скопіювати гіперпосилання з одного аркуша на інший аркуш як завгодно.


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

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці

 

Коментарі (13)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, що робити, якщо я хочу скопіювати своє гіперпосилання з комірки A5 аркуша A в клітинку A5 аркуша B?
Цей коментар був мінімізований модератором на сайті
Привіт, Арпіт:

Я оновив код VBA, тепер ви можете застосувати його на двох аркушах, як вам потрібно. Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Я хочу скопіювати посилання з кількох аркушів одного файлу в інший файл
Цей коментар був мінімізований модератором на сайті
привіт.. що робити, якщо я хочу скопіювати гіперпосилання через vlookup? У мене вже є формула, але коли я натисну гіперпосилання, з’явиться «не вдається відкрити вказаний файл».

Будь ласка, допоможи мені
Цей коментар був мінімізований модератором на сайті
Не працює.
Цей коментар був мінімізований модератором на сайті
Люблю це. Дуже дякуюоооо.
Любов з Домініканської Республіки :)
Цей коментар був мінімізований модератором на сайті
Не працює.
Цей коментар був мінімізований модератором на сайті
Скажімо, у вашій клітинці A1 є гіперпосилання, тому щоб отримати шлях до гіперпосилання, просто створіть формулу, як показано нижче:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Цей коментар був мінімізований модератором на сайті
Це також не спрацювало для мене.
Цей коментар був мінімізований модератором на сайті
Це чудово, і це працює. Я люблю копіювати та вставляти чужий код :D
Цей коментар був мінімізований модератором на сайті
Не працює для мене; чи має значення той факт, що я все ще використовую Excel 2007?
Цей коментар був мінімізований модератором на сайті
Гаразд, ви не публікуєте мій коментар – це справедливо. Але якщо ви хочете, щоб я зареєструвався та ввійшов, то вам потрібно показати мені рішення, які працюють, тому що (на основі одного неробочого екземпляра) я не бачив нічого, що могло б переконати мене в тому, що реєстрація має цінність.
Цей коментар був мінімізований модератором на сайті
Я вніс такі зміни, щоб працювати в моєму варіанті використання:
Підкопія гіперпосилань()
'Uodateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim I As Integer
Dim xAddress як рядок
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Встановіть xSRg = Application.InputBox("Будь ласка, виберіть вихідний діапазон, який ви хочете скопіювати гіперпосилання:", "KuTools For Excel", xAddress, , , , , 8)
Якщо xSRg — нічого, вийдіть із Sub
Встановіть xDRg = Application.InputBox("Будь ласка, виберіть новий діапазон, у який потрібно вставити лише гіперпосилання", "KuTools For Excel", , , , , , 8)
Якщо xDRg — нічого, вийдіть із Sub
Встановити xDRg = xDRg(1)
Для I = 1 До xSRg.Count
Якщо xSRg(I).Hyperlinks(1).Address <> "" Або xSRg(I).Hyperlinks(1).SubAddress <> "" Тоді
Якщо xSRg(I).Hyperlinks.Count = 1 Тоді
xDRg(I).Гіперпосилання.Додати якір:=xDRg(I), _
Адреса:=xSRg(I).Гіперпосилання(1).Адреса, _
Підадреса:=xSRg(I).Гіперпосилання(1).Підадреса
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
End If
End If
Далі
End Sub
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL