SHOW:
|
|
- or go back to the newest paste.
| 1 | v2 As Long | |
| 2 | Dim abbr As Variant | |
| 3 | abbr = Array("nd", "rd", "th", "st")
| |
| 4 | ||
| 5 | If (IsNumeric(Left(Vals(V), 1))) Then | |
| 6 | For v2 = 0 To UBound(abbr) | |
| 7 | If (Right(Vals(V), 2) = abbr(v2)) Then | |
| 8 | Vals(V) = Left(Vals(V), Len(Vals(V)) - 2) | |
| 9 | GoTo Vals1 | |
| 10 | End If | |
| 11 | Next v2 | |
| 12 | End If |
