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

将在str中的任何位置找到返回正数的substr。

对于您的特定应用程序，我会调试您的循环，看起来您正走在正确的轨道上

如何查看列中是否包含数组？

1 个答案: