如何从Excel中的电子邮件地址中提取@签名之前的文本？

在 Excel 中，我们经常需要从电子邮件地址中提取 @ 符号之前的文本，这在处理邮件列表或电子邮件营销信息时非常有用。在本文中，我将向您介绍如何使用 Excel 函数和 VBA 宏来轻松提取电子邮件地址中的用户名。

提取 Excel 函数

Excel 的 LEFT 和 FIND 函数可用于提取电子邮件地址中的用户名。

1. 首先，选定包含电子邮件地址的单元格。

2. 打开“函数”对话框（可以使用快捷键 Ctrl + F 或 Ctrl + Shift + F）。

3. 选择“文本”类别中的“LEFT”函数，或者在搜索框中输入“LEFT”并按 Enter 键。

4. 输入以下公式：

   =LEFT(cell,FIND("@",cell)-1)
   

   其中，“cell”为您选定的单元格或电子邮件地址，FIND 函数找到 @ 符号并减去 1，即为用户名的长度。

5. 按下“回车”键，Excel 将返回电子邮件地址中 @ 符号之前的文本。

提取 VBA 宏

如果您想在 Excel 中提取多个单元格中的用户名或者自动将结果放入一个单元格中，可以使用 VBA 宏。

1. 打开 Visual Basic 编辑器（可以使用快捷键 Alt + F11）。

2. 如果您想将结果放在单元格中，请创建一个新的模块并输入以下代码：

   Function ExtractUserName(cell As Range) As String
     Dim e As String
     Dim username As String
     e = cell.Value
     username = Left(e, InStr(e, "@") - 1)
     ExtractUserName = username
   End Function
   

   如果您想将结果打印在命令窗口中，请输入以下代码：

   Sub ExtractUserNames()
     Dim cell As Range
     For Each cell In Selection
       Debug.Print Left(cell.Value, InStr(cell.Value, "@") - 1)
     Next cell
   End Sub
   

3. 保存并关闭 VBA 编辑器，切换回 Excel 并选定包含电子邮件地址的单元格。

4. 在公式栏或 VBA 编辑器中输入以下公式：

   =ExtractUserName(cell)
   

   其中，“cell”为您选定的单元格或电子邮件地址。

5. 按下“回车”键或者运行 VBA 宏，Excel 将返回电子邮件地址中 @ 符号之前的文本。

希望这篇文章能帮助您提取 Excel 中的电子邮件地址！