Night_Rain
Board Regular
- Joined
- Jan 1, 2005
- Messages
- 181
Any suggestions on how to pull non-numeric values out of a variable length string, leaving only the numbers, order intact.
Sub String_to_Numbers()
Dim StartString As String
Dim PhoneNumber As String
Dim i As Integer
StartString = Selection
PhoneNumber = ""
For i = 1 To Len(StartString)
Select Case Asc(Mid(StartString, i, 1))
Case 48 To 57
PhoneNumber = PhoneNumber & Mid(StartString, i, 1)
End Select
Next 'i
Selection = PhoneNumber
End Sub
Book1 | ||||||
---|---|---|---|---|---|---|
A | B | C | D | |||
1 | ||||||
2 | a123bcd | 123 | ||||
3 | pkj3a2l5 | 325 | ||||
4 | 9asd52nk | 952 | ||||
5 | abcdef2568 | 2568 | ||||
6 | 539pq14 | 53914 | ||||
7 | 123456 | 123456 | ||||
8 | abcdefg | |||||
9 | 123abc | 123 | ||||
10 | abc123 | 123 | ||||
Sheet1 |
Sub Letters_Out()
Dim i As Integer
Dim Original As String
Dim NumOnly As String
Original = Selection
NumOnly = ""
For i = 1 To Len(Original)
If IsNumeric(Mid(Original, i, 1)) Then
NumOnly = NumOnly & Mid(Original, i, 1)
End If
Next 'i
Selection = NumOnly
End Sub