将一列单元格与另一列单元格进行比较

我在一列中列出了2万个以上的电子邮件地址，并且我想比较一个类似大小的电子邮件列。 我想标记第一列中也出现在第二列中的条目。 我写了这个代码来实现它：

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 

这是告诉我'types不匹配'。 我尝试了一些其他的select，像一个while循环。 我相信还有一百万种其他的方法来完成这个任务，但我无法弄清楚。 任何人都有一分钟的时间来帮忙？

Answer 1

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

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

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

Answer 2

一个简单的解决scheme是将第二个列表追加到第一个列表中，并执行（Homefunction区）条件格式化 – >突出显示单元格规则 – >重复值