“Excel VBA Obtenga el número ordinal del número cardinal” Código de respuesta

Excel VBA Obtenga el número ordinal del número cardinal

Function Ordinal(n)
  Ordinal = n & Evaluate("IF(OR(--RIGHT(" & n & ",2)={11,12,13}),""th"",IFERROR(CHOOSE(RIGHT(" & n & "),""st"",""nd"",""rd""),""th""))")
End Function