Excel-VBA-Campare＆通過每行中的多列進行搜索

Question

我試圖讓程序查找在D1中設置的條件，然後搜索col E的每一行col E作爲條件，但會發生錯誤。例如標準是「金，銀」，那麼程序在每行中分別在列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")