Eliminar 2 caracteres de una celda
Hola, necesito una macro que elimine 2 caracteres de una celda. Tengo los datos de esta manera: 1PS10 y necesito que solo queden los datos numéricos 110 eliminando las letras PS. Todos mis datos tienen la misma estructura.
Gracias por su apoyo
Respuesta de Luis Mondelo
1
Te mando la solución. Como dices en tu enunciado que es para una celda la macro está creada para trabajar en la celda que tengas seleccionada en ese instante.
Posiciónate en la celda en cuestión y ejecuta esta macro:
Sub ejemplo() 'por luismondelo tope = Len(ActiveCell) For x = 1 To tope + 1 extrae = Mid(ActiveCell, x, 1) If IsNumeric(extrae) Then lista = lista & extrae End If Next ActiveCell.Value = lista End Sub
recuerda finalizar la consulta
