В excel 2010 замените любое число, соответствующее шаблону, значением поиска

использование макросов / VBA:

Public Function patSub(theValue As String) As String
    result = theValue
    Dim rango As Range
    Set rango = ActiveSheet.Range("E1:F6")
    strPattern = "{[4,9]{1}[0-9]{5}}"
    Dim regEx As New RegExp
    Dim matches
    With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
    End With
    Set matches = regEx.Execute(theValue)
    For Each Match In matches
        On Error Resume Next
        lookupmatch = Match.Value
        lenMatch = Len(lookupmatch)
        lookupmatch1 = Mid(lookupmatch, 2, lenMatch - 2)
        lookupValue = Application.VLookup(lookupmatch1 + 0, rango, 2, Falso)
        If lookupValue <> "Error 2042" Then
            result = Replace(result, lookupmatch, lookupValue)
        End If
    Next
    patSub = result
End Function

открыть VBA / Macros с помощью alt+F11, вставить новый модуль в ThisWorkbook и вставьте код с правой стороны.

сделать Регулярные Выражения работа с VBA необходимо ссылаться на Регулярные Выражения Microsoft VBScript 5.5:

• Выберите "Tools / References"
• установите флажок рядом с Регулярные Выражения Microsoft VBScript 5.5
• нажмите "OK"

эта UDF использует две переменные:

• rango1: справочная таблица, содержащая элементы.
• strPattern: регулярное выражение.

если данные находятся в ячейке A1, затем в B1вы должны поставить =patSub(A1).