Excel VBA: как найти определенную подстроку

Question

В столбце B у меня есть данные, например. hmc1, hmc2, hmc3. Я хочу найти каждую ячейку столбца В, содержащую «hmc», и заменить ее соответствующую ячейку в столбце 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 

---