búsqueda de comodines vba en la celda

Estoy tratando de encontrar algo con una búsqueda comodín en un valor de celda. Si el valor en el rango de la hoja ("FC") ("I2: I" y LastRowC) coincide con las hojas ("Instr"), rango ("A130: A190"). significa hoja Instr coincidencia si pocos caracteres coinciden con el otro rango mencionado anteriormente, entonces haga algo de código.

por ejemplo, en el rango superior de la hoja Instr, el valor de una celda es "Ajith" y en el rango mencionado anteriormente de la hoja FC, uno de los valores de la celda es "Aji", el código debe identificarlo.

Todos los pasos a continuación están bien para mí, excepto la búsqueda de comodines a través del rango de bucle, revise el código y el rango (cambie el nombre de las hojas si es necesario como se muestra a continuación) y proporcione una actualización.

Sub Exception()

Dim mfc As Worksheet
Dim mfp As Worksheet
Dim mfo As Worksheet
Dim instr As Worksheet

Set mfc = Sheets("FC")
Set mfp = Sheets("FP")
Set mfo = Sheets("OSLR")
Set inst = Sheets("Instr")

Dim irng As Range
Dim icel As Range

Set irng = inst.Range("A130:A190")

Dim LastRowC As Long
LastRowC = mfc.Cells(Rows.Count, 1).End(xlUp).Row

Dim fcphr As Range
Dim fcphc As Range

Set fcphr = mfc.Range("I2:I" & LastRowC)

For Each icel In irng.Rows
For Each fcphc In fcphr.Rows

If icel.Value = "" Then
Exit For
End If
If fcphc.Value = "" Then
Exit For
End If

If fcphc.Value = icel.Value Then

    msgbox fcphc
    msgbox icel

    '***(i need a wild card search for the above step)***

End If

Next fcphc
Next icel


End Sub

Respuestas a la pregunta(1)

Su respuesta a la pregunta