VBA Code for Removing alphanumeric (i.e. Question3456321) like this in cell

[sanjeetkr77]

Hi ,

Well I m not VBA Code writer but need help on one problem.

Problem situation:-

Question22XXX (so any cell value ending with last 3 X / keep it)
Question2XXX (cell value with alphabet+Number+ 3 X/keep it)
Question80A (So any cell value mixture with alphabet+ Number+alphabets /keep it)
Question12345 (here , any cell value with alphabets +Number /Delete full row, assuming column "B")
1235234XXXXX (Delete all cell value with entire row, if its starts with number and ending more than 5 X in last)

Please help, to get some code as i have situation of thousands of data in such situation and , i got to manually drag down and deleting it . Thanks

 

[hippiehacker]

Hi ,

Well I m not VBA Code writer but need help on one problem.

Problem situation:-

Question22XXX (so any cell value ending with last 3 X / keep it)
Question2XXX (cell value with alphabet+Number+ 3 X/keep it)
Question80A (So any cell value mixture with alphabet+ Number+alphabets /keep it)
Question12345 (here , any cell value with alphabets +Number /Delete full row, assuming column "B")
1235234XXXXX (Delete all cell value with entire row, if its starts with number and ending more than 5 X in last)

Please help, to get some code as i have situation of thousands of data in such situation and , i got to manually drag down and deleting it . Thanks

like this ??

Sub sanjee()
Dim lastrow As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Row 'change "A" to column where your values are store

For i = lastrow To 1 Step -1
 cell = Cells(i, 1) 'change 1 to column where your values are stored 1 = A , B = 2 .........
    If IsNumeric(Right(cell, 1)) And Asc(Left(cell, 1)) >= 65 And Asc(Left(cell, 1)) <= 122 Or UCase(Right(cell, 5)) = "XXXXX" Then
    Cells(i, 1).EntireRow.Delete
    End If
    
Next i
End Sub

 

[sanjeetkr77]

Thank You Hippie . Thank You so much , It worked !!!!!!!!!