Как подсчитать количество ячеек, содержащих гиперссылки, в Excel?
Пробовали ли вы когда-нибудь подсчитать количество ячеек с гиперссылками в заданном диапазоне Excel? В этом пошаговом руководстве описан простой и эффективный способ выполнить эту задачу.
Подсчёт количества ячеек с гиперссылками с помощью кода VBA
Подсчёт количества ячеек с гиперссылками с помощью кода VBA
Следующий код VBA позволяет подсчитать количество ячеек с гиперссылками в указанном диапазоне. Выполните следующие действия.
1. Нажмите сочетание клавиш «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.
Совет: вы также можете открыть это окно, выбрав «Разработчик» → «Visual Basic».
2. В окне «Visual Basic» выберите «Вставка» > «Модуль», затем вставьте приведённый ниже код VBA в открывшееся окно модуля.
Код VBA: Подсчёт количества ячеек с гиперссылками в заданном диапазоне
Sub StatisticsHypRange()
'Updated by Extendoffice 20220815
Dim xSRg As Range
Dim xURg As Range
Dim xRg As Range
Dim xHRg As Range
Dim xHypCount As Long
On Error Resume Next
Set xSRg = Application.InputBox("Select the range of cells from which you want to count hyperlinks", "Kutools for Excel", "", Type:=8)
If xSRg Is Nothing Then Exit Sub
Set Where = Range("A1", Range("A" & Rows.Count).End(xlUp))
Set xURg = Application.Intersect(xSRg.Worksheet.UsedRange, xSRg)
xHypCount = 0
For Each xRg In xURg
If xRg.Hyperlinks.Count > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
Else
If InStr(LCase(xRg.Formula), LCase("HYPERLINK")) > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
End If
End If
Next
MsgBox "Find " & xHypCount & " hyperlink cells"
xHRg.Select
End Sub3. Нажмите клавишу «F5», чтобы запустить код. В появившемся диалоговом окне «Kutools для Excel» выберите диапазон, в котором необходимо подсчитать количество ячеек с гиперссылками, и нажмите «ОК». См. снимок экрана:
4. Затем появится диалоговое окно с информацией о количестве ячеек, содержащих гиперссылки, в выбранном диапазоне. Нажмите «ОК», чтобы закрыть это окно.
После этого все ячейки с гиперссылками будут выделены одновременно.
Примечание: с помощью приведённого выше кода VBA можно подсчитать следующие типы гиперссылок:
=HYPERLINK(link_location,[friendly_name])Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек