Excel-VBA - Campare＆amp;搜索每行中的多个列

Question

我试图让程序查找D1中设置的标准，然后搜索col C＆amp;的每一行。 col E为标准，但发生错误。例如，标准放置是“金，银”，然后程序在每行中分别搜索col C和E中的金或银，考虑到我有几行要搜索。只有当范围（“E：E”和“C：C”）被范围（“E：E”）替换时，程序才有效。

以下是代码：

var1 = Range("D1").Value
Dim aString() As String: aString = Split(var1, ",")

For Each cell In Sheets("data").Range("E:E" & "C:C")

    If (Len(cell.Value) = 0) Then Exit For 
    For i = 0 To UBound(aString)        
        If InStr(1, cell.Value, aString(i), vbTextCompare) Then
        Msgbox "found aString's value in col E and col C"
        End if
    Next
Next

Answer 1

更改

For Each cell In Sheets("data").Range("E:E" & "C:C")

到

For Each cell In Sheets("data").Range("E:E,C:C")