邮件地址的excel文档如何检测哪一行少了@

来源:百度知道 编辑:UC知道 时间:2024/09/21 22:56:02
我的是竖排的,有几万个,没法一一检查,但是有些就是少了@,想问下有没什么方法可以实现,excel不太熟,希望能详细点噢,谢谢了

'用VBA代码实现!

'按alt+f11进入VBE编辑窗口,然后选择插入----模块----会打开一个模
'块窗口,把下面的代码复制进去--保存,再次按alt+f11返回excel窗口
'按alt+f8打开运行宏窗口,会看到test宏,运行它就可以把缺@符号的
'单元格的底色填充为蓝色(代码亲测,希望对你有用)

'-------------以下代码部分,可全部复制我的答案到模块窗口---------------

Option Explicit

Sub test()
Dim a, b As Range
Set a = Application.InputBox("选择查找的区域", "Code-By-Chn.f0reSt*", , , , , , 8)
For Each b In a
If b <> "" Then
If InStr(b, "@") = 0 Then b.Interior.ColorIndex = 5
End If
Next b
End Sub

[=COUNTIF(A1,"*@*")]
向下复制,结果为0的行就是少了@的地址

如数据在A1, B1=IF(SUM(COUNTIF(A1,{"*@*"}))>=1,"有","没有")

公式向下引用.......

直接筛选,自定义不包含“@”的。