单元格上的 VBA 通配符搜索

我正在尝试在单元格值中使用通配符搜索来查找某些内容。如果sheet("FC")Range("I2:I" & LastRowC)中的值-与Sheets("Instr"),Range("A130:A190")匹配。表示如果少数字符与上述其他范围匹配，则表 Instr 匹配，然后执行某些代码。

例如，在上述范围的表 Instr 中，单元格值为“Ajith”，而在上述范围的表 FC 中，单元格值之一为“Aji”，代码应识别它。

除了通过循环范围进行通配符搜索之外，以下所有步骤对我来说都可以，请仔细检查代码和范围（如有必要，请重命名工作表，如下所示）并提供更新。

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

你可以使用Like操作员。例如：

If fcphc.Value Like "*" & icel.Value & "*" Then

如果您希望比较以两种方式进行：

If _
    fcphc.Value Like "*" & icel.Value & "*" Or _
    icel.Value Like "*" & fcphc.Value & "*" _
Then