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

然而，有时我获得的数据并不总是＆＃34; Cinema ABC＆＃34;但只是＆＃34; ABC＆＃34;。所以我需要我的代码来搜索数据是否包含＆＃34; ABC＆＃34;而不是等于＆＃34; Cinema ABC＆＃34;。你能帮助我吗？

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

喜欢和*作为通配符

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

2 个答案: