Как скопировать только гиперссылку из одной ячейки в другую в Excel?
Предположим, у меня есть список значений в столбце A, и каждая ячейка содержит разные гиперссылки. Теперь я хочу скопировать только гиперссылки без текста в другой столбец E, как показано на следующем скриншоте. Возможно, в Excel нет прямого способа решить эту задачу, но здесь я могу предложить код VBA для её выполнения.
Копирование гиперссылки из одной ячейки в другую с помощью кода VBA
Копирование гиперссылки из одной ячейки в другую с помощью кода VBA
Чтобы скопировать только адреса гиперссылок без текста в другие ячейки, следующий код может помочь вам в этом, пожалуйста, сделайте так:
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.
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 Sub3. Затем нажмите клавишу F5, чтобы запустить этот код, появится диалоговое окно, которое напомнит вам выбрать ячейки, из которых вы хотите скопировать только гиперссылки, см. скриншот:
4. Затем нажмите OK, затем выберите ячейки, куда вы хотите вставить только гиперссылки, в другом диалоговом окне, см. скриншот:
5. Адреса гиперссылок были скопированы из исходных ячеек в указанные ячейки, как вам нужно, см. скриншот:
Примечание: Этот код также может помочь вам скопировать гиперссылки с одного листа на другой, как вы хотите.
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек