Как найти ячейку в 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

Всем привет.

При обработке некоторой таблички в MS Excel возникла простенькая задача — надо было найти все формулы в которых участовала определенная ячейка. Ммм, попробуйте далее не читать и решить ее самостоятельно.

Ну а кому не втерпеж, слушаем далее. Итак для примера мне надо найти кто использует ячейку B4.

Первое решение — используем поиск. Указываем ячейку в поиске и нажимаем «Найти все». В результате имеем список всех ячеек где наша B4 участвует в расчетах. Для чего не подходит такой способ? Это не подходит в случае, если наша ячейка участвует  в диапазоне типа «=СУММ(B3:B7)» или ссылка абсолютная «=B$4».

Как найти ячейки, связанные с внешними источниками в 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. В окне «Редактировать ссылки» вы можете увидеть все книги, связанные с текущим файлом. Чтобы удалить ссылку, вы можете выбрать внешний файл и нажать Разорвать ссылку. В результате все ссылки на этот файл удаляются, а ранее связанные ячейки будут содержать значения, которые они имели на момент разрыва.

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