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

Question

在B栏中，我有数据，例如hmc1，hmc2，hmc3。我想找到包含＆＃34; hmc＆＃34;的每个B列单元格。并用＆＃34;找到＆＃34;替换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