vba - 在使用 VBA 插入之前匹配电子邮件 ID

Question

我在工作表 1 的 A1 中有 7101 个电子邮件 ID。现在我想在工作表 2 中插入新的电子邮件 ID。我将创建一个用户表单，在插入新电子邮件 ID 之前，用户应检查电子邮件 ID 是否存在于 Sheet1 中。如果电子邮件 ID 存在，它会显示一个消息框“电子邮件已经存在”

我怎么做？

Answer 1

Dim ws As Worksheet
Set ws = Sheets("Sheet 1")

Dim rg As Range
Set rg = Range("A1", ws.Range("A1").End(xlDown))

Dim emailFound As Range
Set emailFound = rg.Find("foo@bar.com", lookin:=xlValues)

If Not emailFound Is Nothing Then MsgBox "The email is already there" 
[...]

它应该可以解决问题。