Abraham Valencia respondió:
[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...