Press Alt-F11 to open the VBEditor
Click in Insert > Module
Paste in the following code:
Function LetterOut(rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc(Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
LetterOut = LetterOut & Mid(rng.Value, i, 1)
End Select
Next i
End Function
Press Alt-Q to exit the VBEditor.
You've just added a new function to your sheet called LetterOut.
If a cell has your data in it, perhaps A2, then in B2, put this formula:
=LetterOut(A2)
Copy that down to get all the account numbers out of the strings.
Now highlight the entire range of cells you just created, and COPY, EDIT > PasteSpecial > Values. Now you have the account numbers and the formulas have been removed.
Bookmarks