excel - 尝试从列表中提取电子邮件地址时出现 Excel VBA 错误
问题描述
在尝试从单元格包含附加信息的电子表格中提取电子邮件地址时(根据https://smallbusiness.chron.com/extract-email-addresses-excel-spreadsheet-42777.html上的说明),我输入了:
Function ExtractCellEmail(cell As Range) As String
Dim contents As String contents = cell.Text
AtPosition = InStr(1, contents, "@")
AddressStartingPosition = InStrRev(contents, " ", AtPosition)
AddressEndingPosition = InStr(AtPosition, contents, " ")
AddressEndingPosition = InStr(AtPosition, contents, " ")
ActiveCell.Offset(0, 1).Value = emailAddress
End Function
我收到一条错误消息,上面写着
“预期:语句结束”
对于我输入的子功能
Sub Troyextract()
Sub mcrExtractColumnAddresses()
Do
Call ExtractEmails(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)
End Sub
我收到一条错误消息说
“预期结束子”
请帮忙。
特洛伊
解决方案
这需要是VBA吗?你可以用一个公式来做到这一点:
=IF(ISNUMBER(FIND("@",A1)),TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND(" ",A1&" ",FIND("@",A1))-1)," ",REPT(" ",LEN(A1))),LEN(A1))),"")
推荐阅读
- javascript - 在输入 oninput 中调用 javascript 方法作为回调
- c# - 是否有更好的实践来管理类的实例化?
- django - 如何在 Django 中防止重复的 POST 请求处理?
- html - 我可以在 wordpress 页面上放置超过 1 个 Azure 媒体播放器吗?
- c++ - 可变参数函数重载和 SFINAE - 解决歧义以模拟“隐藏签名”
- c# - 枚举的定义没有从索引中给出值
- flutter - 如何在 Flutter 的 SafeArea 中制作多个 Cupertino 按钮?
- java - 使用 Streams 为列表的每个元素调用方法
- php - 无法检查 laravel 的 API 请求对象中是否存在属性
- flutter - 如何为 Mysql/Php 发布请求的 Future 添加参数?