Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
IF not numbers delete
i have a list of 25,000 entries which are email addresses. how can i check for invalid inputs like bogus numbers. Maybe like if cell includes numbers or not email address delete row type formula. -- djranks ------------------------------------------------------------------------ djranks's Profile: http://www.excelforum.com/member.php...fo&userid=3704 View this thread: http://www.excelforum.com/showthread...hreadid=494355 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
IF not numbers delete
Sub Test()
Dim iLastRow As Long Dim i As Long Dim oRegEx As Object Set oRegEx = CreateObject("VBScript.RegExp") iLastRow = Cells(Rows.Count, "A").End(xlUp).Row1 With oRegEx .Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" For i = iLastRow To 1 Step -1 If Not .Test(Cells(i, "A").Value) Then Rows(i).Delete End If Next i End With Set oRegEx = Nothing End Sub -- HTH RP (remove nothere from the email address if mailing direct) "djranks" wrote in message ... i have a list of 25,000 entries which are email addresses. how can i check for invalid inputs like bogus numbers. Maybe like if cell includes numbers or not email address delete row type formula. -- djranks ------------------------------------------------------------------------ djranks's Profile: http://www.excelforum.com/member.php...fo&userid=3704 View this thread: http://www.excelforum.com/showthread...hreadid=494355 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I delete numbers in a cell | Excel Discussion (Misc queries) | |||
Sorting Numbers w/Aplha Suffix | Excel Discussion (Misc queries) | |||
Checking Winning Numbers in the Lottery. | Excel Discussion (Misc queries) | |||
Averaging Numbers when 2 numbers in one cell | Excel Worksheet Functions | |||
Sorting when some numbers have a text suffix | Excel Discussion (Misc queries) |