Excel-VBA - Campare & поиск по нескольким столбцам в каждой строке

Question

Я пытался попросить программу найти критерии, установленные в D1, затем выполнить поиск в каждой строке столбца C & col E, но произошла ошибка. Например, критерий «Золото, серебро», затем программа ищет золото или серебро в столбцах C и E соответственно в каждой строке, учитывая, что у меня есть несколько строк для поиска. Программа работает, только если диапазон («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")