Excel-VBA-Campare，並在每行中搜索幾列

Question

我試圖讓程序尋找在D1中設置的條件，然后在col C和col E的每一行中搜索該條件，但是會發生錯誤。 例如，輸入的條件是“ Gold，Silver”，然后程序考慮到我要搜索多行，分別在每行C和E列中搜索黃金或白銀。 僅當range（“ E：E”＆“ C：C”）被Range（“ 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")