Применить имена в Excel прослушивается?

как было указано в Просмотр кода, это вызовет проблемы, если, например, он ищет " A1 "и находит" A10 " и т.д.

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

обратите внимание, что я ищу usedrange - но вы можете сократить его, как вам нравится сбросить srchRng.

Option Explicit
Sub FixNames()

Dim ClctNames As Variant
Set ClctNames = ActiveWorkbook.Names

Dim rngName As String
Dim rngNameLoc As String
Dim strFrmla As String

Dim c As Range
Dim n As Integer

'Define as needed
Dim srchRng As Range
Set srchRng = ActiveSheet.UsedRange

'For each name (n) in the collection
For n = 1 To ClctNames.Count

    'I'm storing the Named Range's name and address as strings to use below
    rngName = ClctNames(n).Name
    rngNameLoc = ClctNames(n).RefersToRange.Address

    '--Should I break this out into a function? If so, at what point?
    For Each c In srchRng
        'We only want to test cells with formulas
        If c.HasFormula = True Then
           'We have to check if the cell contains the current named range's address
           If InStr(1, c.Formula, rngNameLoc, vbTextCompare) <> 0 Then
              'Since these are perfect matches, no need to look for length or location, just replace
              strFrmla = Replace(c.Formula, rngNameLoc, rngName)
              c.Formula = strFrmla
           End If
        End If
    Next
Next

'No error handling should be needed

End Sub

вам нужно использовать абсолютные ссылки, потому что, когда я вытаскиваю именованный диапазон RefersToRange.Address возвращается - не ряд, поэтому я устанавливаю его как строку. Я думаю, вы могли бы написать функцию, которая удаляет $ абсолютные ссылки, если хочешь.

_{это было весело}