Como puedo hacer una macro para que ponga el signo *

¿Cómo puedo hacer una macro para que ponga el signo * al principio y al final de la palabra?

De esto:

a esto:

Que continue en la columna hasta que no encuentre palabra

2 Respuestas

Respuesta
1

¿Y por qué no usas una fórmula

="*" & A1 &"*"

La copias al lado de todos tus registros y luego, usando "Pegado Especial" - "pegar Valores", vuelves a copiar/pegar la columna de la fórmula para dejar tus nuevos registros.

Respuesta
1

Esta es la macro que buscas

Sub poner_signos()
Set datos = Range("a1").CurrentRegion
With datos
    For i = 2 To .Rows.Count
        .Cells(i, 1) = "*" & .Cells(i, 1) & "*"
    Next i
    .EntireColumn.AutoFit
End With
End 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas