Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I need a macro in Excel that will:
(a) identify non-alphnumeric characters within a cell, (b) within range A1:G60000 (c) and mark each cell with such a character in a way that I can easily identify the cells with FIND or by sorting I found this macro here but all it does is change the color of the non-alphanumeric characters. I have 180,000 rows to look through so I need a way to aggregate all of the exceptions in a short list so I can deal with them. Sub Test() For Each cell In Range("A1:G50000").Cells For i = 1 To Len(cell) Select Case Asc(Mid(cell.Value, i, 1)) Case 48 To 57, 65 To 90, 79 To 122 cell.Characters(Start:=i, Length:=1).Font.ColorIndex = 1 Case Else cell.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 End Select Next i Next End Sub Thanks for your help! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
File names appended with ~ plus alphanumeric characters | Excel Discussion (Misc queries) | |||
HOW DO YOU COUNT ALPHA CHARACTERS IN AN ALPHANUMERIC FIELD | Excel Discussion (Misc queries) | |||
format cell to place colon btw every 2 alphanumeric characters | Excel Worksheet Functions | |||
Search for non alphanumeric characters | Excel Programming | |||
Strip Alpha Characters out of an Alphanumeric Dataset | Excel Programming |