Как да извлека действителни адреси от хипервръзки в Excel?
Да предположим, че имате набор от клетки, които съдържат хипервръзки, и сега трябва да видите истинската дестинация на хипервръзките и да ги извлечете от хипервръзките, както е показано на следната екранна снимка. Има ли лесни начини за бързо решаване на този проблем? Тази статия ще ви помогне да извлечете действителни адреси от множество хипервръзки.
Извлечете действителни адреси от хипервръзки с функцията Редактиране на хипервръзка
Тук, Редактиране на хипервръзка може да ви помогне да извлечете основния URL адрес за всяка от тези хипервръзки и да поставите този действителен адрес в различна клетка. Можете да направите следното:
1. Изберете клетката с хипервръзка и щракнете с десния бутон, от контекстното меню изберете Редактиране на хипервръзка, вижте екранна снимка:
2. И един Редактиране на хипервръзка ще се появи диалогов прозорец, изберете и копирайте (Ctrl + C) целият URL адрес от Адрес поле на диалоговия прозорец.
3. След това затворете диалоговия прозорец и поставете действителния адрес във всяка клетка, която искате.
Забележка: С този метод можете да извличате само един адрес на хипервръзка всеки път, но ако имате няколко хипервръзки, които трябва да бъдат извлечени, трябва да прилагате тази функция многократно.
Извличане на действителни адреси от хипервръзки с VBA код
За много хипервръзки горният метод ще бъде досаден и отнема много време, така че следният VBA код може да ви помогне бързо да извлечете няколко адреса от хипервръзките наведнъж.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.
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. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Запазете кода и затворете прозореца, изберете празна клетка, за да въведете тази формула =ВземиURL(A2) (A2 е клетката, в която се намира хипервръзката), и натиснете Въведете бутон. Можете да видите, че истинският адрес на хипервръзката е извлечен.
Извличайте действителни адреси от хипервръзки с Kutools за Excel бързо и лесно
Ето един удобен инструмент, т.нар Kutools за Excel, Със своята Конвертиране на хипервръзки функция, можете бързо да се справите със следните операции:
- Извличане на действителни адреси от хипервръзки;
- Преобразувайте url текст в хипервръзки, върху които може да се кликне.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
Ако сте инсталирали Kutools за Excel, моля, направете следното:
1. Изберете диапазона, който съдържа хипервръзките, които трябва да бъдат извлечени.
2. Щракнете Kutools > връзка > Конвертиране на хипервръзки, вижте екранна снимка:
3. В Конвертиране на хипервръзки изберете диалоговия прозорец Адресите на хипервръзките заместват съдържанието на клетката и щракнете върху бутон от Диапазон на резултатите за да посочите клетка, в която да поставите резултата.
4, И после щракнете върху OK, действителните адреси са извлечени от хипервръзките. Вижте екранна снимка:
Забележка: Ако искате да поставите действителните адреси в оригиналния диапазон, моля, проверете Преобразуване на изходния диапазон.
Кликнете Конвертиране на хипервръзки за да научите повече за тази функция.
Изтеглете и изпробвайте безплатно Kutools за Excel сега!
Демо: Извлечете действителни адреси от хипервръзки с Kutools за Excel
Свързана статия:
Как да конвертирате url текст в хипервръзка, върху която може да се щрака, в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!