Vba 在excel工作簿中查找电子邮件地址

我有一个excel表格，其中包含一个电子邮件，精确到一列（列的顺序不精确且不断变化）

我使用了如下所示的find函数

Sub emialy()

Cells.Find ("@",,xlValues,xlPart,xlByRows,,,,) ActiveCell.Copy 

End Sub

但我收到一个错误

---

然后，如果程序找到电子邮件列表的起始位置，我想复制第一封电子邮件并打开一个电子邮件客户端（outlook），创建一封新的电子邮件，并将准确复制的电子邮件粘贴到“收件人：”行。

建议使用

查找

功能，方法是将

范围

类型变量设置为结果。通过这种方式，您可以捕获场景

Find

无法使用

在工作表的单元格中找到
@
，如果没有，则EmailRng为Nothing

代码

Sub emialy()

Dim EmailRng As Range

Set EmailRng = Cells.Find(What:="@", LookIn:=xlValues, Lookat:=xlPart, SearchOrder:=xlByRows)    
If Not EmailRng Is Nothing Then ' succesful find
    EmailRng.Copy
Else
    MsgBox "Could not find the @ symbol"
End If

End Sub