Найти ссылки в excel на другой файл excel

Коля nilem написал мне классный макрос котроый рвет все связи и при этом не трогает формулы листа..давно хотел прорекламировать -очень полезная штука может адаптируете себе для поиска таких ячеек.  

  Option Explicit  
Option Compare Text  
‘—————————————————————————————  
‘ Module    : Module1  
‘ Author    : Николай (nilem)  
‘ Date      : 05.09.2011  
‘ Purpose   : Mikki  
‘—————————————————————————————  
Sub CopyWithoutRef()  
‘Dim tm!: tm = Timer  
Dim r As Range, s As String, nm As Name  
With Application  
   .ScreenUpdating = 0: .Calculation = xlCalculationManual  
End With  
ActiveSheet.Copy after:=ActiveSheet  
With ActiveSheet  
   For Each r In .UsedRange.SpecialCells(xlCellTypeFormulas).Cells  
       s = r.Formula  
       If InStr(1, s, «!», vbTextCompare) Then  
           r.Value = r.Value  
       Else  
           For Each nm In ThisWorkbook.Names  
               If InStr(1, s, nm.Name, vbTextCompare) Then r.Value = r.Value: Exit For  
           Next nm  
       End If  
   Next r  
End With  
With Application  
   .ScreenUpdating = 1: .Calculation = xlCalculationAutomatic  
End With  
‘MsgBox Timer — tm  
End Sub  

  ‘Private Sub rtyrty()  
‘Dim msg As String, nm As Name  
»For Each nm In ActiveSheet.Names  
‘For Each nm In ThisWorkbook.Names  
‘    If nm.Visible = False Then  
‘        msg = msg & «имя: » & nm.Name & vbCrLf  
‘    End If  
‘Next nm  

  ‘MsgBox msg, 64  
‘End Sub  

  ‘—————————————————————————————  
‘ Module    : Module1  
‘ Author    : Николай (nilem)  
‘ Date      : 05.09.2011  
‘ Purpose   : Mikki  
‘—————————————————————————————  

    Sub ertert()  
Dim x, i&, ch As ChartObject, nm$  
Application.ScreenUpdating = False  

  With Sheets(«Перевод»)  
   x = .Range(«B3:C» & .Cells(Rows.Count, 2).End(xlUp).Row).Value  
End With: nm = ActiveSheet.Name  
ActiveSheet.Copy after:=ActiveSheet  
On Error Resume Next  
With ActiveSheet  
   With .UsedRange.SpecialCells(2)    ‘ константы  
       For i = 1 To UBound(x)  
           .Replace x(i, 1), x(i, 2)  
       Next i  
   End With  

     With .UsedRange.SpecialCells(-4123) ‘ формулы  
       For i = 1 To UBound(x)  
           .Replace x(i, 1) & » «, x(i, 2) & » «, xlPart  
       Next i  
   End With  

     For Each ch In .ChartObjects ‘ диаграммы  
       If ch.Chart.HasTitle = True Then  
           With ch.Chart.ChartTitle  
               For i = 1 To UBound(x)  
                   If .Text = x(i, 1) Then .Text = x(i, 2): Exit For  
               Next i  
           End With  
       End If  
   Next ch  
   .Name = nm & «P» ‘P англ.  
End With  
Application.ScreenUpdating = True  
End Sub

Как найти ячейки, связанные с внешними источниками в Excel

В этой статье вы узнаете, как найти внешние ссылки в Excel.

Найти внешние ссылки

В Excel можно использовать данные из другой книги (файла). В этом случае Excel создает внешнюю ссылку на эту книгу. Рассмотрим набор данных на рисунке ниже, который содержит внешние ссылки на другую книгу.

Как вы можете видеть выше, значение в B2 связано с рабочим листом с именем Внешний файл .xlsx (Лист1, ячейка B2). Ячейки B5, B7 и B8 также содержат похожие ссылки. Теперь посмотрите на этот файл и значение в ячейке B2.

Выше видно, что значение ячейки B2 в файле Внешний файл .xlsx 55, и это значение связано с исходным файлом. Когда вы связываете ячейку с другой книгой, значения обновляются в обеих книгах при каждом изменении связанной ячейки. Таким образом, вы можете столкнуться с проблемой, если файл, на который вы ссылаетесь, будет удален.

При открытии исходный файл предупреждает вас о том, что некоторые ячейки в этой книге связаны с несуществующим файлом. Чтобы решить эту проблему, вы можете найти все ячейки с внешними ссылками и заменить их каким-либо другим значением (или просто удалить их).

Однако часто бывают случаи, когда у вас много связанных ячеек, и на просмотр всего файла, чтобы выбрать их одну за другой, потребуется много времени. Вы можете найти все внешние ссылки в файле сразу, используя Найти и заменить или Редактировать ссылки Особенности.

Поиск внешних ссылок с помощью функции поиска и замены

1. В Лента, перейти к Главная> Найти и выбрать> Заменить.

2. Во всплывающем окне (1) введите «* .xl *» для Найти то, что, (2) нажмите Найти все, и (3) нажмите CTRL + A на клавиатуре, чтобы выделить все найденные ячейки.

Связанные файлы должны быть в формате Excel (.xlsx, .xlsm, .xls), поэтому вы хотите найти ячейки, содержащие «.xl» в формуле (ссылка). Звездочки (*) перед и после «.xl» обозначают любой символ, поэтому поиск найдет любое из расширений файлов Excel.

3. В результате выбираются все ячейки, содержащие внешнюю ссылку (B2, B5, B7 и B8). Чтобы заменить их определенным значением, введите это значение в поле Заменить коробка и удар Заменить все. Если оставить поле пустым, удаляется содержимое всех связанных ячеек. Например, если ввести 55 в поле Заменить на, получится Ценности столбец на картинке ниже. В любом случае замененные ячейки больше не связаны с другой книгой.

Найдите внешние ссылки с помощью ссылок редактирования

Другой вариант — использовать функцию редактирования ссылок в Excel.

1. В Лента, перейти к Данные> Изменить ссылки.

2. В окне «Редактировать ссылки» вы можете увидеть все книги, связанные с текущим файлом. Чтобы удалить ссылку, вы можете выбрать внешний файл и нажать Разорвать ссылку. В результате все ссылки на этот файл удаляются, а ранее связанные ячейки будут содержать значения, которые они имели на момент разрыва.

Вы поможете развитию сайта, поделившись страницей с друзьями

В 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 дней. Загрузите бесплатную пробную версию прямо сейчас!