Extracting last numbers in string

[JoeS01]

I am looking for VBA code to help me extract the RH numbers after the slash, if it exists, and would appreciate any help:

10/15/20 >> 20
10/12 >> 12
6 >>6

 

[acw]

Joe

One way. Assumes that the data is in the range A1:A3. This will have to be adjusted.

Sub ccc()
 For Each ce In Range("a1:a3")
  slashh = Len(ce) - Len(WorksheetFunction.Substitute(ce, "/", ""))
  If slashh > 0 Then
   ce.Offset(0, 1).Value = Right(ce, Len(ce) - WorksheetFunction.Search("~~", WorksheetFunction.Substitute(ce, "/", "~", slashh), 1))
  Else
   ce.Offset(0, 1).Value = ce
  End If
 Next ce
End Sub

Tony

 

[JoeS01]

EXCELLENT!!

works perfectly - many thanks Tony