在使用VBA插入前匹配電子郵件ID

Question

我在表1中的A1中有7101個電子郵件ID。現在我想在Sheet2中插入新電子郵件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" 
[...] 

它應該做的伎倆。