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

我在表1中的A1中有7101个电子邮件ID。现在我想在Sheet2中插入新的电子邮件ID。 我要创build一个用户表单，在插入新的电子邮件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("[e-mail]", lookin:=xlValues) If Not emailFound Is Nothing Then MsgBox "The email is already there" [...] 

它应该做的伎俩。