I would like to write a macro that removes numbers from a string of text. The one problem that I am having a hard time figuring out is how to have it remove numbers but not number/letter combinations. For example:
I would like the macro to change the following like this,
"Apple Juice 12 ounce" to "Apple Juice ounce" and
"Printer xb1200 30 inch" to "Printer xb1200 inch"
Any help would be great.
Last edited by manofcheese; 06-09-2015 at 10:55 AM.
PHP Code:Option Explicit
Function RemoveNumbersFromString(StrC$) As String
Dim Tmp$, ViTri As Byte
StrC = StrC & " "
Do
ViTri = InStr(StrC, " ")
If ViTri Then
Tmp = Left$(StrC, ViTri - 1)
StrC = Mid(StrC, ViTri + 1, Len(StrC))
If IsNumeric(Tmp) Then
Else
RemoveNumbersFromString = RemoveNumbersFromString & " " & Tmp
End If
Else
Exit Function
End If
Loop
End Function
That worked like a charm. Thanks!
Could I also have this refer to a list of noise words so it removes them as well? For example. Lets say in cells A1:A20 I have a list of words I would like to remove if they are within a title. Could I have this function refer to that range and also remove them?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks