Как найти и вывести список всех внешних ссылок в Excel?
В Excel вы можете ссылаться на содержимое ячеек из другой книги, создавая внешнюю ссылку. Однако найти и вывести список всех внешних ссылок в книге может показаться непростой задачей. Метод, описанный в этой статье, поможет быстро обнаружить и получить полный список всех ссылок в книге.
Поиск и вывод списка всех ссылок с помощью команды «Найти»
Поиск и вывод списка всех ссылок с помощью Kutools для Excel
Поиск и вывод списка всех ссылок с помощью макроса VB
Поиск и вывод списка всех ссылок с помощью команды «Найти»
Поскольку внешние ссылки содержат квадратную скобку [, найти их можно, просто отыскав все квадратные скобки в книге.
1. Щёлкните Главная > Найти и выделить > Найти, чтобы открыть диалоговое окно Поиск и замена. Диалоговое окно Поиск и замена также можно открыть, нажав клавиши Ctrl + F.
2. В поле Найти: введите левую квадратную скобку «[».
3. Щёлкните Параметры, в раскрывающемся списке Область поиска выберите Лист или Книга, из которой требуется найти ссылки. См. снимок экрана:
4. Затем нажмите кнопку Найти все. После этого все внешние ссылки немедленно появятся в диалоговом окне Поиск и замена. Нажмите Ctrl + A, чтобы выделить все ячейки со ссылками, как показано на следующем снимке экрана:
Левая квадратная скобка позволяет найти внешние ссылки во всей книге. Если вы хотите найти все виды ссылок — как внутренние, так и внешние, — введите восклицательный знак «!» в поле Найти:.
Поиск и вывод списка всех ссылок с помощью Kutools для Excel
С помощью функции Kutools для Excel — Найти и разорвать ссылки — вы можете найти все внешние ссылки на активном листе и при необходимости разорвать нужные.
Если вы установили Kutools для Excel, выполните следующие действия:
1. Активируйте лист, в котором нужно найти ссылки, и нажмите Kutools > Ссылка > Найти и разорвать ссылки. См. снимок экрана:
2. В диалоговом окне Найти и разорвать ссылки щёлкните раскрывающийся список Фильтр, чтобы выбрать Все ссылки. Все ссылки на активном листе появятся в списке, а также отобразится их статус: ОК означает, что ссылка действительна, а Ошибка — что она повреждена.
Примечания:
1. Если установлен флажок Активировать ячейку, программа при щелчке по ссылке в списке найдёт и перейдёт к соответствующей ячейке на листе, содержащей эту ссылку.
2. Если вы хотите разорвать ссылку, выберите её в списке и нажмите Разорвать ссылку.
Нажмите, чтобы скачать Kutools для Excel и сразу начать бесплатную пробную версию!
Если вы хотите узнать больше об этой функции, нажмите Найти и разорвать ссылки.
Поиск и вывод списка всех ссылок с помощью макроса VB
Следующий макрос VBA поможет вывести список всех книг, на которые есть ссылки, на новый лист текущей книги.
1. Удерживая клавиши ALT+F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте приведённый ниже макрос в окно модуля.
VBA: Получите полный список всех ссылок в Excel.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. Нажмите клавишу F5, чтобы запустить этот макрос. После этого будет создан новый лист с именем Link Sheet, на котором сразу отобразятся расположения всех ссылок, а также имена и пути к файлам книг — источников ссылок. См. снимок экрана:
Поиск и вывод списка всех ссылок с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек