Як знайти та перерахувати всі посилання (зовнішні посилання) в Excel?
У Excel ви посилаєтеся на вміст комірок в іншій книзі, створюючи зовнішнє посилання. Але коли ви хочете перерахувати всі посилання книги в Excel, здається, важко знайти та перерахувати всі зовнішні посилання (посилання). Хитрий спосіб у цій статті допоможе вам швидко знайти й перерахувати всі посилання в книзі.
Знайдіть і перелічіть усі посилання за допомогою команди Знайти
Знайдіть і перелічіть усі посилання за допомогою макросу VB
Знайдіть і перерахуйте всі посилання за допомогою Kutools для Excel
Знайдіть і перелічіть усі посилання за допомогою команди Знайти
Оскільки зовнішні посилання містять дужки [ знак, ми можемо дізнатись зовнішні посилання, якщо зможемо отримати всі значки дужок у всій книзі.
1. Натисніть Головна > Знайти та вибрати > знайти відкрити Знайти і замінити діалогове вікно. Ви також можете відкрити Знайти і замінити діалогове вікно з натисканням Ctrl + F ключі.
2. У Знайти що: введіть ліву частину дужки "[".
3. Натисніть Опції, В В випадаючий список, виберіть лист or робочий зошит з яких ви хочете знайти посилання. Дивіться знімок екрана:
4. А потім клацніть Знайти все кнопку. Потім він перераховує всі зовнішні посилання в Знайти і замінити діалогове вікно негайно. Натисніть Ctrl + A щоб виділити всі комірки посилання, як показано на малюнку нижче:
У лівій частині дужки можна знайти зовнішні посилання у всій книзі. Якщо ви хочете дізнатися всі види посилань, включаючи внутрішні та зовнішні посилання, ви можете ввести знак оклику "!" в Знайти те, що: коробка.
Знайдіть і перелічіть усі посилання за допомогою макросу VB
Наступний макрос VBA може допомогти нам перерахувати всі пов'язані вихідні книги на новому аркуші поточної книги.
1. Утримуйте клавішу ALT + F11 клавіш, і відкриється вікно Microsoft Visual Basic for Applications.
2. Клацання Insert > Модуліта вставте наступний макрос у вікно модуля.
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 для Excel
з Kutools для ExcelАвтора Знайдіть і розірвіть непрацюючі посилання, Ви можете знайти всі зовнішні посилання на активному аркуші, в той же час, Ви можете розірвати конкретні посилання, як Вам потрібно.
Якщо ви встановили Kutools для Excel, будь ласка, зробіть так:
1. Активуйте робочий аркуш, за яким потрібно знайти посилання, і натисніть Кутулс > посилання > Знайдіть і розірвіть поламані посилання, див. скріншот:
2. У Знайдіть і розірвіть непрацюючі посилання діалогове вікно натисніть кнопку фільтр вибрати спадний список Всі посилання, і всі посилання на активному аркуші перераховані, ви також можете переглянути стан посилань, OK означає посилання дійсне, помилка означає, що посилання порушено.
примітки:
1. Якщо Переглянути клітинку параметр встановлений, коли ви натискаєте на посилання у списку. Він знайде та перейде до конкретної комірки, яка містить посилання на аркуші.
2. А якщо ви хочете розірвати посилання, ви можете вибрати посилання зі списку, а потім клацнути Розрив посилання.
Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!
Якщо ви хочете дізнатись більше про цю функцію, натисніть Знайдіть і розірвіть непрацюючі посилання.
Знайдіть і перерахуйте всі посилання за допомогою Kutools для Excel
Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Завантажте безкоштовну пробну версію зараз!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!