Hola capsnw,
No creo que se pueda hacer por una sola formula (habria que usar varias celdas). Prueba la siguiente funcion personalizada (UDF):
- Código: Seleccionar todo
Function Invertir(ByVal Valor As String) As Single
Invertir = StrReverse(Valor)
End Function
La funcion
StrReverse fue añadida a VBA a partir de la version 2000, asi que no funcionara en versiones anteriores.
Adjunto un ejemplo. Creo que tu ejemplo tenia un error de calculo ya que con el algoritmo que usas no se llega aun numero capicua empezando por 98. Lo maximo que consigues es
8872688 en la linea 10.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.