如何查看數組是否包含在列中？

Question

我正在尋找一個vba代碼來查明一列中的單元格是否包含字符串數組（不完全匹配）。我有一張存儲在工作表中的虛假電子郵件列表，另一張表中有我想查看的電子郵件列表。如果在第二列中找到第一個列表中的電子郵件，我需要將該行用黃色着色。 這裏是我有：

Dim list As String, c As Range, count As Long, total As Long 
count = 1 
total = Range("I" & Rows.count).End(xlUp).Row 
For ix = 1 To total 
list = Worksheets("Helper").Range("A" & counter).Value 
k = "a" & count 
    For Each c In Worksheets("JP").Range(k) 
     c.EntireRow.Interior.Color = 255 
    Next c 
End If 
End If 
count = count + 1 
Next ix 

Answer 1

要檢查字符串包含在另一個，你會做這樣使用

If InStr(1, str, substr, vbTextCompare) > 0) Then 
    ' put logic for when substr is within str 
End If 

這將返回SUBSTR的正數範圍內STR隨處可見。

對於您的特定應用程序，我將調試您的循環，它看起來像你在正確的軌道上