将一列细胞与另一列细胞进行比较

Question

我在一列中有一个包含20,000多个电子邮件地址的列表，以及我想要比较的类似大小的电子邮件列。我想标记第一列中也出现在第二列中的条目。我写了这段代码来实现它：

Sub macro()

Dim i As Long
Dim n As Long

i = 2

For i = 2 To 27934

n = 2

For n = 2 To 20824

If Cells(i, 1) = Cells(n, 7) Then
    Cells(i, 3) = 1

End If

Next n

Next i

End Sub

它告诉我'类型不匹配'。我尝试了一些其他选项，比如while循环。我确信还有其他一百万种方法可以完成这项任务，但我无法弄明白。有人有一分钟要帮忙吗？

Answer 1

如果数据在ColumnsA（要标记）和B，从Row2开始：

=IFERROR(MATCH(A2,B:B,0),"")  

C2中的

和复制下来应该“完成工作”，并且相对较快。

Answer 2

一个简单的解决方案是将第二个列表附加到第一个并执行（Home功能区）条件格式化 - ＆gt;突出细胞规则 - ＆gt;重复值