Excel字符串包含字符串，而不是字符串等于字符串。

Question

嗨，我的代码现在看起来像这样

Sub Solbjerg()

Set i = Sheets("Samlet")
Set e = Sheets("ABC")
Dim d
Dim j
d = 7
j = 7

Do Until IsEmpty(i.Range("A" & j))

If i.Range("A" & j) = "Cinema ABC" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value

End If
j = j + 1
Loop
End Sub

然而，有时我得到的数据并不总是“电影ABC”，而仅仅是"ABC“。因此，我需要我的代码搜索，如果数据包含"ABC“，而不是等于”电影ABC“。你们能帮帮我吗？

Answer 1

变化

If i.Range("A" & j) = "Cinema ABC" Then

至

If InStr(1, i.Range("A" & j), "ABC") Then

Answer 2

Sub Solbjerg()

    Set i = Sheets("Samlet")
    Set e = Sheets("ABC")
    Dim d
    Dim j
    d = 7
    j = 7

    Do Until IsEmpty(i.Range("A" & j))

    If i.Range("A" & j) like "*ABC" Then
    d = d + 1
    e.Rows(d).Value = i.Rows(j).Value

    End If
    j = j + 1
    Loop
End Sub

，和*作为通配符工作