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

---