Как найти и перечислить все ссылки (внешние ссылки) в Excel?
В Excel вы ссылаетесь на содержимое ячеек в другой книге, создавая внешнюю ссылку. Но когда вы хотите перечислить все ссылки книги в Excel, сложно найти и перечислить все внешние ссылки (ссылки). Хитрый способ, описанный в этой статье, поможет вам быстро найти и перечислить все ссылки в книге.
Найдите и перечислите все ссылки с помощью команды Найти
Найти и перечислить все ссылки с помощью макроса VB
Найдите и перечислите все ссылки с помощью Kutools for Excel
Найдите и перечислите все ссылки с помощью команды Найти
Поскольку внешние ссылки содержат скобки [ sign, мы сможем найти внешние ссылки, если сможем получить все скобки во всей книге.
1. Нажмите Главная > Найти и выбрать > Найдите для открытия Найти и заменить диалоговое окно. Вы также можете открыть Найти и заменить диалоговое окно с нажатием Ctrl + F ключи.
2. В Найти то, что: введите левую часть скобки "[".
3. Нажмите Опции, В В раскрывающийся список, выберите Простыня or Workbook ссылки на которые вы хотите найти. Смотрите скриншот:
4. Затем нажмите Найти все кнопка. Затем он перечисляет все внешние ссылки в Найти и заменить диалоговое окно немедленно. Нажмите Ctrl + для выбора всех ячеек ссылок, как показано на следующем скриншоте:
В левой части знака скобки можно найти внешние ссылки во всей книге. Если вы хотите найти все виды ссылок, включая внутренние и внешние ссылки, вы можете ввести восклицательный знак "!" в Найти то, что: коробка.
Найти и перечислить все ссылки с помощью макроса 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 ключ для запуска этого макроса. Затем он создает новый рабочий лист с именем Лист ссылок и перечислите все расположение ссылок и имена связанных исходных книг и пути сохранения в нем одновременно. Смотрите скриншот:
Найдите и перечислите все ссылки с помощью Kutools for Excel
Доступно Kutools for ExcelАвтора Найдите и сломайте неработающие ссылки, вы можете найти все внешние ссылки активного листа, в то же время вы можете разбить определенные ссылки по своему усмотрению.
Если вы установили Kutools for Excel, пожалуйста, сделайте так:
1. Активизируйте рабочий лист, на котором вы хотите найти ссылки, и нажмите Кутулс > Ссылка > Найдите и сломайте неработающие ссылки, см. снимок экрана:
2. В Найдите и сломайте неработающие ссылки диалоговое окно, нажмите ФИЛЬТР выпадающий список для выбора Все ссылки, и перечислены все ссылки на активном листе, вы также можете просмотреть статус ссылок, OK означает, что ссылка действительна, Ошибка означает, что ссылка не работает.
Заметки:
1. Если Просмотр ячейки опция отмечена, когда вы нажимаете на ссылку в списке. Он найдет и перейдет к конкретной ячейке, содержащей ссылку на листе.
2. И если вы хотите разорвать ссылку, вы можете выбрать ссылку из списка, затем щелкнуть Разорвать ссылку.
Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию сейчас!
Если вы хотите узнать больше об этой функции, нажмите Найдите и сломайте неработающие ссылки.
Найдите и перечислите все ссылки с помощью Kutools for Excel
Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Загрузите бесплатную пробную версию прямо сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!