Es posible quitar las letras, ¿De celdas que contienen números más letras o letras más números?

Necesitaría quitar las letras, de celdas que contienen números más letras o letras más números, de unas 3000 celdas de una columna, osea de una Selection de celdas que haga, para que queden solo los números, no se si sera posible.

1 Respuesta

Respuesta
1

Te anexo la macro. Cambia en la macro la "B" por la columna que quieres utilizar

Sub QuitarLetras()
'Por.Dante Amor
    col = "B"
    For i = 1 To Range(col & Rows.Count).End(xlUp).Row
        cad = UCase(Cells(i, col))
        For k = 65 To 254
            cad = Replace(cad, Chr(k), "")
        Next
        Cells(i, col) = cad
    Next
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

Hola Dante.

Me interesaría en una selección de la columna "D".

Y mejor, seria sobre una selección de celdas solamente, para usarla en otros casos, ya que tengo 3 hojas de listado de artículos.

Estoy asustado de las posibilidades del EXCEL.

Espero tus noticias

Utiliza la siguiente macro. Primero selecciona las celdas y después ejecuta la macro

Sub QuitarLetras()
'Por.Dante Amor
    For Each c In Selection
        cad = UCase(c.Value)
        For k = 65 To 254
            cad = Replace(cad, Chr(k), "")
        Next
        c.Value = cad
    Next
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas