Страницы: 1
RSS
Удаление ссылок на несуществующие ячейки
 
Как в формулах на листе можно удалить (не вручную) ссылки на несуществующие ячейки?
 
может выделить весь лист, нажать Ctrl+H, в поле "найти" вбить #ССЫЛКА! и заменить на пустоту ?
 
Таки да! Правда вместо пустоты (на мой взгляд) всё же нужно вставить 0 или 1, ведь перед ссылкой может стоять + или - (тогда 0) или * (/) - тогда 1
 
Sub Макрос3()  
'  
   Cells.Find(What:="#ССЫЛКА!", After:=ActiveCell, LookIn:=xlFormulas, _  
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _  
       MatchCase:=False, SearchFormat:=False).Activate  
         
   ActiveCell.Replace What:="#ССЫЛКА!", Replacement:="", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
       
End Sub  
 
записано макрорекордером, но при запуске не исполнятся (((
 
Попробуйте так  
 
Sub Макрос1()  
   Cells.Replace What:="#REF!", Replacement:="", LookAt:=xlPart  
End Sub
 
Вот дай те Боженька здоровья, мил человек! ))))
Страницы: 1
Читают тему
Наверх