VBA - Remove all alphabetical characters from range.

[NichoD]

Hello, I have a macro which picks ups different strings. But I only want to keep the numbers and commas from those strings and reomove any alphabetical character.


The strings are plotted into range L25:L38.

Thank you in advance and merry christmas!

 

[RoryA]

To just replace letters, you could use something like:

Sub replaceLetters()
for n = 1 to 26
 range("L25:L38").Replace chr(64 + n), "", xlpart,,false
 next n
end sub

 

[Peter_SSs]

Give this a try with a copy of your worksheet. It should replace any characters other than digits 0 to 9 and commas

Sub NumsOnly()
  Dim RX As Object
  Dim a As Variant
  Dim i As Long
 
  Set RX = CreateObject("VBScript.RegExp")
  RX.Global = True
  RX.Pattern = "[^0-9\,]"
  With Range("L25:L38")
    a = .Value
    For i = 1 To UBound(a)
      a(i, 1) = RX.Replace(a(i, 1), "")
    Next i
    .Value = a
  End With
End Sub

 

[NichoD]

Thank you so much! Worked perfectly!