Como cambiar caracteres en excel mediante macros?
Quisiera saber como cambiar el ultimo dígito de 9 caracteres. Ej. 123456789 el 9 reemplazarlo por un 5 mediante una macro y que aplique para las demás de la columna.
2 Respuestas
[Hola
Suponiendo que todas las celdas tiene realmente nueve caracteres y que solo se cambia el último por un número cinco, entonces esto te será útil:
Sub Cambiar()
Dim Celda As Range
For Each Celda In Range("A1:A30")
Celda.Value = Left(Celda, 8) & 5
Next Celda
End SubObviamente debes reemplazar el rango por el tuyo.
Abraham Valencia
¡Gracias!
El mejor. te lo agradezco!!!
Abraham ayúdame con algo más por fa...
¿Cómo hago que la instrucción se detenga en la ultima fila con datos en vez de definir el rango?
Con estos cambios:
Sub Cambiar()
Dim Celda As Range
Dim UltimaFila As Long
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
For Each Celda In Range("A1:A" & ultimafila)
Celda.Value = Left(Celda, 8) & 5
Next Celda
End Sub
El 1 es por la columna A, cámbialo de ser otra tu columna.
Abraham Valencia
Esto quizás aporta algo más si te interesa saber como manipular cadenas de texto con macros
https://macrosenexcel.com/2017/08/como-recorrer-una-cadena-de-caracteres.html
https://macrosenexcel.com/2017/09/como-recorrer-una-cadena-y-determinar.html
https://macrosenexcel.com/como-recorrer-una-cadena-y-determinar_8/
https://macrosenexcel.com/2017/09/como-buscar-y-reemplazar-una-cadena-o.html
https://macrosenexcel.com/2018/01/como-buscar-cadena-caracetes-en-nombre.html
https://macrosenexcel.com/2018/01/como-renombrar-archivos-intercambiando.html