Поиск по таблице Excel

function FindIn(table as Range, findVal as string)
on error ErrHandler
FindIn = Application.WorksheetFunction.VLookup( findval, Table, 2, False )
ErrHandler:
FindIn = "Error"
end function

Sub Замена_альфы_по_типу_крепления()
' перед началом работы макроса надо выделить диапазон ячеек в котором будем менять данные
' не меняет данные если в выделенном диапазоне есть склеенные ячейки (в тех строках которые содержат склеенные ячейки)
' Замена_альфы_по_типу_крепления Макрос
 
    Application.EnableEvents = False 'Отключаем события приложения
 
    Dim curRange As Range 'объявляем переменную для хранения текущего выделенного диапазона ячеек
    Set curRange = Selection 'запоминаем выделенный диапазон ячеек текущего активного окна
    
' Определяем координаты первой ячейки выделенного диапазона
    Dim firstRow As Long 'объявляем переменную для хранения номера первой строки выделенного диапазона
    firstRow = curRange.Row 'запоминаем номер первой строки выделенного диапазона
    
' Определяем количество строк и ячеек в выделенном диапазоне
    Dim rowsNum As Long 'объявляем переменную для хранения количества строк выделенного диапазона
    rowsNum = curRange.Rows.Count 'запоминаем количество строк выделенного диапазона
    
    Dim curR As Long 'объявляем переменную для хранения номера текущей обрабатываемой строки
 
    Dim colPattern As String 'индекс столбца ячейки, по содержимому которой макрос определяет нужно ли делать замену
    Dim rowPattern As Long 'номер строки ячейки, по содержимому которой макрос определяет нужно ли делать замену
    Dim newValue As String ' новое значение альфы
    newValue = InputBox("Введите через пробел буквенный индекс столбца и номер строки ячейки с образцом для сравнения:")
    If Len(newValue) < 3 Then Exit Sub
    colPattern = Trim((Left(newValue, InStr(newValue, " ") - 1)))                               ' запоминаем столбец образца
    rowPattern = Trim(Right(newValue, Len(newValue) - InStrRev(newValue, " ")))       ' запоминаем строку образца
    
    Dim colOldValue As String ' индекс столбца с изменяемым значением
    colOldValue = InputBox("Введите буквенный индекс столбца, с изменяемыми ячейками:")
    
    newValue = InputBox("Введите новое значение изменяемой величины:")
    If Len(newValue) <= 0 Then Exit Sub
    
    ' Проходим в цикле по всем строкам выделенного диапазона
    For curR = firstRow To (firstRow + rowsNum - 1)
        If Cells(curR, colPattern).Value = Cells(rowPattern, colPattern).Value Then
            ' выделяем цветом ячейку образец
            Cells(curR, colPattern).Select
            ActiveCell.Interior.Color = vbCyan
            ' выделяем цветом ячейку с изменённым альфа
            Cells(curR, colOldValue).Select
            ActiveCell.Interior.Color = vbGreen
            ' меняем альфу
            Cells(curR, colOldValue).Value = Val(s)
        End If
    Next curR
 
' Включаем обратно события приложения
    Application.EnableEvents = True
    
End Sub

=VLOOKUP(A1,имя,2,0)