Как найти и перечислить все ссылки (внешние ссылки) в 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 дней. Загрузите бесплатную пробную версию прямо сейчас!
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
