我正在查找一個vba代碼,以查找列的單元格中是否包含字符串數組(不完全匹配)。我在A1:A3242的工作表「助手」中存儲了一個假電子郵件列表,在JP表中我有我想檢查的電子郵件列表(我:我)。在InStr中使用數組
如果在第二列中找到第一個列表中的電子郵件,我需要該行以黃色着色。
Dim list As Variant, FF As Long, qq As Long
list = Sheets("Helper").Range("A1:A3242").Value
FF = Range("I" & Rows.count).End(xlUp).Row
For qq = 1 To FF
If InStr(1, list, cell.Value) <> 0 Then
Range("I" & qq).EntireRow.Interior.Color = vbRed
End If
Next qq
End Sub
我真正的新VBA,我不知道這是否正確的做法,我得到錯誤「424所需的對象」,任何幫助將不勝感激,謝謝提前:)
您還沒有宣佈你的變量'cell'。 (這就是爲什麼你得到一個「需要對象」的錯誤 - 只有一個對象或一個用戶定義的類型會在變量名後面有'.Value'。)但是你也不能執行'Instr'在一個數組上。 – YowE3K
答案可能會使用'If Not IsError(Application.Match(Cells(qq,「I」).value,list,0))Then',但我不是'Match'上的導出,所以我會讓別人回答。 – YowE3K
@ YowE3K是一個提示? ;) –