Excel VBA：如何查找某个子字符串

Question

在B列中，我有hmc1，hmc2，hmc3的数据。 我想查找包含“ hmc”的每个B列单元格，并用“ Found”替换其在A列中的对应单元格。 到目前为止，如果我的代码完全匹配，则可以运行，但是如果它与子字符串匹配，则无法运行。

        If .Range("B" & r).Value = "hmc " Then
            .Range("A" & r).Value = "Found" 

---

Col A   Col B
Accept  hmc1
123     hmc1
123     hmc2
Accept  xcc
Accept  xcc
Accept  xcc
Accept  xcc
Accept  xcc
Accept  xcc
Accept  xcc
Accept  xcc
Accept  xcc
Accept  xcc
123     hmc3
Accept  hmc3
Accept  hmc3

Answer 1

假设您的B列数据以2开头

Sub test()
    Dim lastrow As Long
    lastrow = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To lastrow
        If InStr(LCase(Range("B" & i).Value), "hmc") Then
            Range("A" & i).Value = "Found"
        End If
    Next i
End Sub

---