Как бързо да изброя всички хипервръзки в Excel?
Когато използваме работен лист, може би създаваме много хипервръзки в него и понякога трябва да знаем къде се свързват текстовете. Ако щракнете върху тях един по един, това ще бъде досадно и отнема много време. Ако можем да изброим всички хипервръзки с текстове и адреси на хипервръзки в работен лист, ще ни бъде лесно да проверим всички хипервръзки в Excel.
Избройте всички избрани хипервръзки с VBA код
Извлечете всички действителни адреси от хипервръзки с Kutools за Excel
Избройте всички избрани хипервръзки с VBA код
1. Изберете диапазона, който съдържа хипервръзките, които искате да изброите.
2. Щракнете Софтуерен Инженер>Visual Basic, Нов Microsoft Visual Basic за приложения ще се покаже прозорец, щракнете Поставете>Модулии въведете следния код в модула:
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub
3, След това кликнете 
бутон за изпълнение на кода. И всички хипервръзки ще бъдат показани в нов работен лист, наречен Списък с хипервръзки. Вижте екранна снимка:
Извлечете всички действителни адреси от хипервръзки с Kutools за Excel
С Kutools за ExcelЕ Конвертиране на хипервръзки можете бързо да извлечете истинските адреси от хипервръзките.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:( Безплатно изтегляне Kutools за Excel сега )
1. Изберете хипервръзките, които искате да извлечете истинските дестинации.
2, След това кликнете Kutools > връзка > Конвертиране на хипервръзки, вижте екранна снимка:
3. В Конвертиране на хипервръзки изберете диалоговия прозорец Адресите на хипервръзките заместват съдържанието на клетката опция от Тип конвертиране и след това посочете клетка, където искате да поставите резултата под Диапазон на резултатите раздел, вижте екранна снимка:
4, След това кликнете OK всички реални адреси са извлечени от хипервръзките, вижте екранната снимка:
Забележка: Преобразуване на изходния диапазон: извлечените резултати ще бъдат разположени в оригиналния диапазон от клетки, ако поставите отметка на тази опция.
Безплатно изтегляне Kutools за Excel сега
Свързани член:
Как бързо да изтриете всички хипервръзки в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
