Discussion:
Quitar ceros a la izquierda
(demasiado antiguo para responder)
Lucho
2005-09-25 15:03:52 UTC
Permalink
Amigos,

Por favor alguna funcion, formula o codigo VBA para
eliminar ceros a la izqiuerda de una cadena, sin eliminar
los ceros a la derecha de las letras, por ejemplo:

000000AB051
0000CX00035

Gracias
KL
2005-09-25 17:29:10 UTC
Permalink
Hola Lucho,

Suponiendo que la celda en cuestion es [A1], prueba la siguiente formula
MATRICIAL (se debe introducir mediante Ctrl+Shift+Enter, no solo Enter):

=EXTRAE(A1;COINCIDIR(VERDADERO;EXTRAE(A1;FILA(INDIRECTO("1:"&LARGO(A1)));1)<>"0";0);LARGO(A1))

o bien:

=EXTRAE(A1;COINCIDIR(1;--(EXTRAE(A1;FILA(INDIRECTO("1:"&LARGO(A1)));1)<>"0");0);LARGO(A1))

Saludos,
KL
Post by Lucho
Amigos,
Por favor alguna funcion, formula o codigo VBA para
eliminar ceros a la izqiuerda de una cadena, sin eliminar
000000AB051
0000CX00035
Gracias
unknown
2005-09-26 23:13:18 UTC
Permalink
Gracias KL, funciono y le agregue un controlador de error para que no
muestre error cuando la cadena es solo ceros ("00000000")

Luis
Post by KL
Hola Lucho,
Suponiendo que la celda en cuestion es [A1], prueba la siguiente formula
=EXTRAE(A1;COINCIDIR(VERDADERO;EXTRAE(A1;FILA(INDIRECTO("1:"&LARGO(A1)));1)<>"0";0);LARGO(A1))
=EXTRAE(A1;COINCIDIR(1;--(EXTRAE(A1;FILA(INDIRECTO("1:"&LARGO(A1)));1)<>"0");0);LARGO(A1))
Saludos,
KL
Post by Lucho
Amigos,
Por favor alguna funcion, formula o codigo VBA para
eliminar ceros a la izqiuerda de una cadena, sin eliminar
000000AB051
0000CX00035
Gracias
Loading...